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IDENTIFICATION 


PRODUCT CODE: AC-9486B-MC 

PRODUCT NAME: (CZVSBBO VS60 INST TST PT2 
DATE: MAY 1979 

MAINTAINER: DIAGNOSTIC ENGINEERING 
AUTHORS : R. SHOOP & R. MOORE 


COPYRIGHT (C) 1976, 1979 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY 
ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH 
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PRO- 
VIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO 
THESE LICENSE TERMS. “TITLE TO AND OWNERSHIP OF THE 
SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 


WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM- 
MITMENT BY DIGITAL EQUIPMENT CORPORATION. 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY 
=" SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY 
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ABSTRACT 


THIS PROGRAM IS THE SECOND OF A SERIES DESIGNED TO TEST STRICTLY LOGIC FUNCTIONS 
OF THE VS60 DISPLAY PROCESSOR. THIS DIAGNOSTIC ALL MOST EXCLUSIVELY TESTS 

THE VS60 GRAPHIC TYPE INSTRUCTIONS. THE BULK OF THE TESTING IS PREFORMED AT FULL 
SPEED WITH NO MAINTENANCE MODES ENABLED. HOWEVER, ON ODD NUMBERED PASSES, 
MAINTENANCE MODE SWITCH 4 (SERIAL MODE) IS ENABLED. 


«** REV B INCLUDES ADDITIONAL TESTING FOR VECTOR 
SCALING AFTER ECO #VT48-0012 IS INSTALLED. 
G.P. MAY '79 «xx 


REQUIREMENTS 


EQUIPMENT 


A. PDP-11 COMPUTER ae AT acct 8k OF MEMORY 
B. 1/0 TERMINAL (I.E. ASR33 T 
C. VS60 DISPLAY PROCESSOR 


STORAGE 
THIS PROGRAM OCCUPIES LOWER 8k OF MEMORY. 
LOADING PROCEDURE 


NORMAL °ROCEDURE FOR LOADING A BINARY PROGRAM INTO MEMORY SHOULD BE FOLLOWED. 
STARTING PROCEDURE 


STARTING ADDRESS 200 


LOADING ADDRESS 200 AND STARTING WILL IDENTIFY THE TEST, INITIALIZE 
THE SYSTEM, AND BEGIN TESTING. 


TAI IOUS ISIN ISISIOIUIDISIOISIDIDIOIOIDIOIUITIOIO IOC 
NOTE: SWITCH REGISTER BIT 10 MUST BE SET TO INDICATE THE 
PRESENCE OF ECO VT48-0012. 

0 = ECO NOT INSTALLED (DEFAULT). 

1 = ECO IS INSTALLED. 


eeeeneeneenneneneneneaneneenenteeeeereeneneeneneneRenEs 


RESTART ADDRESS 204 
LOADING ADDRESS 204 AND STARTING WILL INITIALIZE THE SYSTEM AND 
BEGIN TESTING. 


STARTING ADDRESS 210 
LOADING ADDRESS 210 AND STARTING IS IDENTICAL TO START 200 
EXCEPT THAT EXTERNAL SYNC TIMING WILL BE TESTED. 


SEQ 0003 


SWITCH REGISTER SETTINGS 


FUNCTION 


HALT oe ERROR 


LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

HALT AT END OF DIAGNOSTIC 

INHIBIT ITERATIONS = NORMALLY 2000(8) AFTER 1ST PASS 
SCALING ECO (VT48-0012) IS INSTALLED. 

LOOP ON ERROR 

LOOP ON TEST IN SWR<7:0> 


— ss I YY DY ss 


ERROR COMMENT 


ALL ERRORS ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE DESCRIPTIVE 
COMMENT AS TO THE TYPE OF FAILURE. FURTHER QUALIFICATION 
ae CAN BE OBTAINED IF NEEDED FROM THE COMMENT AT THF 


ERROR DATA 


LISTING ADDRESS WHERE THE ERROR WAS DETECTED. 
TEST NUMBER WHERE THE ERROR OCCURRED. 
DISPLAY BUS ADDRESS WHERE THE RESULTANT DATA WAS EXPECTED 
DATA THAT WAS EXPECTED. 
DATA THAT WAS RECEIVED. 
ADDRESS OF TEST WHICH FAILED TO COMPLETE (HUNG) 
VALUE OF SCALE (1/4 TO 3 3/4) WHEN ERROR OCCURED 
STARTVAL X OR Y VALUE THAT WAS SCALED 


BOIS UIOISIISIOISISIISISISIOIOISIOIIOIIISIOISIOIIOIDIOIOIOIDIDIOIUIOIOI IOI I 
NOTE: IF YOU GET SCALING ERRORS (SCALE ER), CHECK 

THAT SWR BIT 10 = 1 IF ECO vT48-0012 IS INSTALLED. 
OTHERWISE, SWR BIT 10 SHOULD BE O (DEFAULT). 


LAR RSASAASASASSAASASALASASASARALLASSSASASAS AREAS ASSESS SSS SG 





MISCELLANEOUS 





VS60 BUS/VECTOR/PRIORITY ADDRESS MODIFICATION 

MODIFY LOCATION 1252 way If BASE VECTOR PRIORITY/ADDRESS 
IS NOT 100320 (HI BYTE = PRI 4). 

MODIFY LOCATION 1256 (S$BASE) IF BASE REGISTER ADDRESS 

IS NOT 172000. 


NOTE: A RESTART IS REGUIRED AFTER THE ABOVE ADDRESS MODIFICATION. 
THE ABOVE LOCATIONS ARE LOCATED IN THE ‘APT MAILBOX-ETABLE’. 


XXDP/APT NOTES: 

THIS DIAGNOSTIC IS CHAINABLE UNDER XXDP. 

THIS DIAGNOSTIC INCLUDES THE ‘APT’ SOFTWARE HOOKS HOWEVER, THEY 
HAVE NOT BEEN TESTED. 

RRA E AREER EERE REE EERE REE EERE RRR ERE 

THIS DIAGNOSTIC SOULD NOT BE CHAINED AFTER ECO VT48-0012 

SINCE THE SETTING OF SWR BIT 10 MAY CONFLICT WITH OTHER 

TESTS IN THE CHAIN. 


PPR RRASASASALASASLARASAAAAAA SSSA ARR RASS SR SARA AS SASS SEED SG 


POWER FAIL: 
A POWER FAILURE WILL CAUSE A RESTART MESSAGE ON POWER UP AT 
WHICH TIME THE PROGRAM IS RESTARTED AT THE BEGINNING. 


SINGLE VS60 TESTING: 
THIS DIAGNOSTIC DOES NOT TEST MULTIPLE VS60°S. 


EXECUTION TIME 


EXECUTION TIME RANGES FROM ABOUT 3 SECONDS WITH NO ITERATIONS 
TO ABOUT 4 MINUTES WITH ITERATIONS ENABLED. AN ‘END PASS" MESSAGE 
IS TYPED EACH PASS THRI) THE DIAGNOSTIC. 









10.0 


PROGRAM TEST DESCRIPTIONS 


















GENERAL 


THE TABLE OF CONTENTS AT THE BEGINNING OF THE LISTING CONTAINS AT 
BRIEF DESCRIPTION OF EACH TEST. ADDITIONAL INFORMATION CAN BE 
OBTAINED FROM THE COMMENTS SUPPLIED AT EACH TEST. THE MAJORITY 
OF THE TESTS IN THIS DIAGNOSTIC ARE CONCERNED WITH THE GRAPHIC OR 
DISPLAY INSTRUCTIONS WHERE AT COMPLETION THE RESULTS CAN BE READ 
FROM THE X OR Y POS: TION REGISTERS. 


TYPICAL TEST SEQUENCE 


TEST FORMAT MIGHT LOOK LIKE LIKE THIS: 

LOCATION "BUFFER' IS LOADED WITH A GRAPHIC INSTRUCTION OR INSTRUCTIONS 
THAT WILL PROVIDE THE EXPECTED RESULT. A DISPLAY STOP INSTRUCTION 
1S LOADED AS THE LAST INSTRUCTION IN "BUFFER'. ‘$BDADR' IS LOADED 
WITH THE X OR Y REGISTER ADDRESS WHERE THE EXPECTED RESULT IS 
EXPECTED. LOCATION ‘S$GDDAT" IS LOADED WITH THE ie RESULT 

AND THEN THE DISPLAY IS STARTED AT LOCATION ‘BUFFER’. WHEN THE 
DISPLAY STOP FLAG IS SET THE APPROPRIATE vs60 BUS Ang nt. DEF INED 

BY *S8DADR* IS READ AND COMPARED TO ‘$GDDAT’. IF AN ERROR IS DETECTED 
AN ERROR TRAP (EMP INSTR) IS PREFORMED ACCORDING TO THE !TEM NUMBER 
IN THE "SERRIB* (ERROR TABLE). THIS TABLE DIRECTS OR POINTS TO THE 
PERTINENT *TYPEOUT* INFORMATION. 


LISTING 


PROGRAM LISTING FOLLOWS. 


H 1 
C7VSBB == VS60 Nee hag HE TEST PART II MACY11 30G(1063) 17=SEP=79 08:46 PAGE 1 
CZVSBB.P11 10-SEP-79 11:32 SEQ 0007 


-TITLE CZVSBB == VS60 INSTRUCTION TEST PART I] 
;*COPYRIGHT (C) 1979 

:*DIGITAL EQUIPMENT CORP. 

; *MAYNARD , MASS. 01754 


; #PROGRAM BY R. SHOOP 
‘THIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC 
[*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


** 


=’ 
Ww 


BOLL LOLOL OO Le Fh 


; REV B == FIXES SCALING TESTS AFTER ECO VT48-0012. 
: SET SWR BIT 10 (002000) olf ECO 0 1S INSTALLED. 


“SBTTL BASIC DEFINITIONS 


z*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
001100 STACK= 1100 
-EQUIV EMT,ERROR ;sBASIC DEFINITION OF ERROR CALL 
-EQUIV IOT,SCOPE ;;BASIC DEFINITION OF SCOPE CALL 


; *MI SCELLANEOUS DEFINITIONS 
HT= 11 :CODE FOR HORIZONTAL TAB 
::CODE FOR LINE FEED 
3;CODE FOR CARRIAGE RETURN 
000200 00 :;CODE FOR CARRIAGE RETURN-LINE FEED 
177776 ;;PROCESSOR STATUS WORD 


177774 ul 3:STACK LIMIT REGISTER 
3 PROGRAM INTERRUPT REQUEST REGISTER 
7 ;HARDWARE SWITCH REGISTER 
177570 ; sHARDWARE DISPLAY REGISTER 


;*GENERAL PURPOSE REGISTER DEFINITIONS 
RO= %0 23GE NERAL REGISTER 
GENERAL REGISTER 
::GENERAL REGISTER 
7:GENERAL REGISTER 
: GENERAL REGISTER 


7 GENERAL REGISTER 
7: STACK POINTER 
37;PRUGRAM COUNTER 


LEVSt gatetniee > 


NOUS WN-O 


000340 ;zPRIORITY LEVEL 
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CZ7VSBB.P11 10-SEP-79 11:32 BASIC DEFINITIONS SEQ 0008 
(1) 7*'"SWITCH REGISTER’’ SWITCH DEFINITIONS 
(1) 100000 Sw15= 100000 
(1) 040000 SW14= 4 
(1) 020000 Sw13= 20000 
(1) 010000 SWi2= 10000 
(1) 004000 SW11= 4000 
(1) Sw10= 2000 
(1) 001000 SwO9= 1000 
(1) SwO8= 400 
(1) 000200 SwO7= 200 
(1) 000100 SwO6= 100 
(1) 0 SwO5= 
(1) 000020 SwO4= 20 
(1) 10 SwO3= 10 
(1) 000004 SWO2= 4 
(1) 000002 Sswol= 2 
(1) 000001 SwOO= 1 
(1) EQUIV SW09,SW9 
(1) EQUIV SwW08,SW8 
(1) EQUIV Sw07, 

(1) EQUIV SWwW06,SW6 
(1) EQUIV SWO5,SW5 
(1) EQUIV SW04,SW4 
(1) -EQUIV SW03,SW3 
(1) -EQUIV SWO02,SW2 
(1) -EQUIV SwWO1,SW1 
sh -EQUIV Sw00,SWO 
(1) ;*DATA BIT DEFINITIONS (BITOO TO BIT15) 
(1) 100000 BIT15= 100000 

(1) 040000 BIT14= 400 

(1) 020000 BIT13= 20000 

(1) 010000 BIT1i2= 10000 

(1) 004000 BIT11= 0 

(1) 002000 BIT10= 2000 

(1) 000 BITO9= 1000 

(1) 000400 BIT08= 40 

(1) 200 BITO7= 200 

(1) 000100 BITO6= 100 

(1) 0 0 BITO5= 40 

(1) 000020 BIT04= 20 

(1) 10 BITO3= 10 

(1) 000004 BITO2= 

(1) 002 BITO1= 2 

(1) 000001 BITOO= 1 

(1) -EQUIV BITO9,BIT9 
(1) -EQUIV BITO8,BIT8 
(1) -EQUIV BITO7,BIT7 
(1) EQUIV BIT06,BI1T6 
(1) -EQUIV BITO5,BIT5S 
(1) EQUIV BIT04,BI1T4 
(1) -EQUIV BITO3,BI1T3 
(1) EQUIV B1T02,BI1T2 
(1) -EQUIV BITO1,BIT1 
Sh -EQUIV BITOO,BITO 
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BASIC DEFINITIONS 
;*BASIC *‘CPU'’ TRAP VECTOR ADDRESSES 


ERRVEC= 4 ; TIME OUT AND OTHER ERRORS 
RESVEC= 10 :7RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 — fl 

TRIVEC= 14 SZ TRACE T 

BPTVEC= 14 + BREAKPOINT TRAP (BPT) 

IOTVEC= 2C 33 INPUT /QUTPUT TRAP (IOT) **SCOPE** 
PWRVEC= 24 3 ;POWER FAIL 

EMTVEC= 30 ; EMULATOR TRAP (EMT) **ERROR** 
TRAPVE C=34 :""TRAP’' TRAP 

TKVEC= 60 ieTTY KEYBOARD VECTOR 

TPVEC= 64 TTY PRINTER VECTOR 


PIRQVEC=240 ::PROGRAM INTERRUPT REQUEST VECTOR 


SEQ 0009 


K 1 
CZ7VSBB == VS60 INSTRUCTION TEST PART II MACY11 30G(1063) 17-SEP-79 08:46 PAGE 1-3 
CZVSBB.P11 10-SEP-79 11:32 BASIC DEFINITIONS SEQ 0010 


ABASE= 172000 ; VS60 BASE REGISTER ADDRESS. 
AVECT1= 100320 ; PRI AND 1ST VECTOR ADDRESS. 
$SWR= 165400 ; REDEFINE SWITCHES USED. 
-SBTTL OPERATIONAL SWITCH SETTINGS 


SWITCH 


Nm 
WN 


HALT oe ERROR 
OOP ON T 


L TES 

INHIBIT ERROR TYPEOUTS 
HALT AT END OF DIAGNOSTIC 
INHIBIT ITERATIONS 
SCALING ECO IS INSTALLED 
LOOP ON ERROR 

LOOP ON TEST IN SWR<7:0> 


BRL LL LLL LO 
*eeupe ene HeaHR He HH 


@o0O0—rWS 


-SBTTL TRAP CATCHER 


-=0 
3*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ‘',+2,HALT"’ 
*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
LOCATION, O CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


000000 DISPREG: .WORD 0 7sSOFTWARE DISPLAY REGISTER 

000000 SWREG: .WORD 0 sSOFTWARE SWITCH REGISTER 
.SBTTL STARTING ADDRESS(ES) 

000137 002050 JMP @ABEGIN ;;JUMP TO STARTING ADDRESS OF PROGRAM 

000137 002460 JMP RESTRT 3; 204 = RESTART. 

000137 002040 JMP BEGINA ; 210 = START W/ EXTERNAL SYNC. 


Fe te ae i ee a, ee i i 


2 
2 
2 
2 
4 
. 
; 
; 
1 
; 
1 
; 
1 
; 
1 
2 
2 
1 
7 
1 
1 
1 
1 
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1 
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; 
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2 
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CZ7VSBB.P11 10-SEP-79 11:32 ACT11 SEQ 0011 


Pi -SBTTL ACT11 HOOKS 

(2) DD ISIO III IOIISISISIIISISIDISISIOIOIOISIDIOIDIOIDIOIOIOIIOIOIOIOIOI TOIT TOT OT TOT TTT TTS TTT TEE 

1) ;HOOKS REQUIRED BY ACT11 

(1) 000214 $SVPC=. SAVE PC 

(1) 000046 -=46 

(1) 000046 024470 SENDAD 331)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
(1) 000052 -=52 

(1) 000052 000000 «WORD 0 gees LOC. 5a TO ZERO 

a 000214 -=$SVPC 33 RESTORE P 

33 001000 


.=1000 
-SBTTL APT PARAMETER BLOCK 


FLERE EEE ERE KEE EEE RK EEE REE KR EE KEE 


;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


J LAER EERE EERE REAR EKER EEEREK EK 


¥ 


001000 -SX=.  3;SAVE CURRENT LOCATION 

000024 2=24 3-SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 :3FOR APT START UP 

000044 -=44 :sPOINT TO APT INDIRECT ADDRESS PNTR. 
000044 001000 SAPTHDR ::POINT TO APT HEADER BLOCK 

001000 -=.5X : IRESET LOCATION COUNTER 


DLR R KERR KEE EEREREKEEEEKEKEEEEK KEE EK 


;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
: INTERFACE SPEC. 


001000 SAPTHD: 

001000 000000 $HIBTS: .WORD 0 3;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

001002 001176 $MBADR: .WORD $MAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 

001004 000012 $TSTM: .WORD 10. 7;RUN TIM OF LONGEST TEST 

001006 000036 $PASTM: .WORD 30. 2 7 RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

001010 000000 SUNITM: .WORD 0 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
1012 000032 -WORD $ETEND- ~siL/2 :sLENGTH MAILBOX~E TABLE (WORDS) 


Pe et ae ae ee he i et te, ee te a a a a a ae, ee, 
kk ek ek kd et ss a FY) 2 SS SS SS ef SN 
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-SBTTL COMMON TAGS 


AOI IO IR IOI ICICI OIC IIIT III ITT TTT TTT ADS AAISAIIA SIS ASASIASAA MA. 
‘THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM. 


-=1100 
3-START OF COMMON TAGS 


+s CONTAINS THE ae 4 NUMBER 
ERROR FLAG 
SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 


VUSSST IVR 


ee ee ee ee ee en ee ee ee ww A eh a et et eee ee 
— ed ed 


— os SS a SS SS SS SS SS SS SS SS SS 


MAX. E TEST 
PC OF LAST ERROR, INSTRUCTION 
ADDRESS OF ‘GOOD’ DAT 

ADDRESS OF "BAD" DATA. 

GOOD" DATA 


; CONTAINS DATA 
 RESERVED--NOT TO BE USED 


3 AUTOMATIC MODE INDICATOR 
32 INTERRUPT MODE INDICATOR 


4 ORES OF SWITCH REGISTER 
ADDRESS OF DISPLAY REGISTER 
TTY KBD STATUS 

3 TTY KBD BUFFER 

zeTty PRINTER STATUS REG. ADDRESS 

BUF REG. 


88888888888888s8s3s 


a ch ok aod cad ce cd ah a aad a a ed ed ee 
SOSSOSSCSSO “oe eeee 


J 
ae 
oD 
0 


NS 
ONTAINS # OF FILLER CHARACTERS REQUIRED 
:HINSERT hey? CHARS. AFTER A ‘LINE FEED*’ 
"TERMINAL AVAILABLE"’ 1 (BIT<07>=0=YES) 
CONTAINS THE ADDRESS FROM 
:WHICH ($REGO) WAS OBTAINED 
22 CONTAINS ( ($REGAD) +0) 


;;USER DEFINED 
7 2MAX. NUMBER OF ITERATIONS 
S TESCAPE ON ERROR ADDRESS 
STION MARK 
7: CARRIAGE RETURN 
7:LINE FEED 


J LRA AER REE EKER AREER EERE ERE KEE 


-SBTTL APT MAILBOX~-ETABLE 


g SESASSEHSNSSS ASS AHH AENSSHSSHNNN HASH ANHSSH Se HAonesengeesesesesas 
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APT MAILBOX 
AMSGTY * MESSAGE TYPE CODE 
AFATAL eee ERROR NUMBER 
T NUMBER 


ATESTN 
APASS ;:PASS COUNT 
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SDEVCT: .WORD + DEVICE COUNT 
SUNIT: WORD NUMBER 

GAD: .WORD 
LG: .WORD 


; MESSAGE LENGTH 
;APT ENVIRONMENT TABLE 
SEV RONPENT BYTE 
NVIRONMENT MODE BITS 
3 APT ah — 


bits WS-115Cpu T 
1/04=01, “1705202. 11/20=03,11/40=04,11/45=05 
11770=06,P Q=07,0=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT PROCESSOR 
BIT 8=MEMORY MANAGEMENT 
: HIGH ADDRESS, gt BYTE 


TYPE ,BLK# 
MEM. -TYPE BYTE (HIGH BYTE) 


500 NS 

3 HIGH ADDRESS ,BLK4 

MEM.LAST ADDR. =3 BYTES, THIS WORD AND LOW OF ‘'TYPE'’ ABOVE 
: HIGH ADDRESS M.S. BYTE 
ae e PE /BLKA2 

3MEM.LAST ADDRESS ,BLK#2 
HIGH ADDRESS,M.S.BYTE 
3 : «MEM. TYPE ,BLK#3 

-LAST ADDRESS ,BLKA3 

THIGH ADDRESS .M.S.BYTE 

3MEM. TYPE ,BLKA4 
MEM.LAST ADDRESS ,BLK&4 
: ¢¢ INTERRUPT VECTORAT: -BUS PRIORITY#1 

; INTERRUPT VECTOR#2BUS PRIORITYA2 

: 3BASE ADDRESS OF EQUIPMENT UNDER TEST 
: }CONTROLLER DESCRIPTION WORDA1 
3;CONTROLLER DESCRIPTION WORD#2 
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Cl at a ee ee ea et te a ee ee 
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030061 
032323 
032470 
000000 


Beoe 03 


ROR POINTER T 
-SBTTL ERROR POINTER TABLE 


;*THIS TABLE CONTAINS THE INFORMATION 4- EACH ERROR THAT CAN OCCUR. 


:*THE INFORMAT 
;*LOCATION SITEMB. 
+ *NOT E1: IF 
S*NOTE2: 
;* EM 
ao DH 
;* DT 
7* DF 
$ERRTB 
:ITEM = 1 
—EM1 
DH1 
DTI 
0 
:ITEM 2 
EM2 
DH1 
DT1 
0 
ITEM) 3 
EM3 
DH1 
DT1 
0 
ITEM) 4 
EMG 
DH1 
DT1 
0 
<JTER 5 
EMS 
DH1 


ION IS OBTAINED BY USING T 
THIS NUMBER INDICA 


;MAINT. SWITCH REGISTER 
sERRPC TSTNUM BUSADR EXPCT RCVD 
;SERRPC TSTNUM $B8DADR $GDDAT S$B8DDAT 


;LOADING D.P.C. REGISTER <STATIC> 
sERRPC_ TSTNUM BUSADR EXPCT  RCVD 
;SERRPC TSTNUM $BDADR $GDDAT $B8DDAT 


;LOADING RELOCATE REGISTER 
sERRPC TSTNUM BUSADR EXPCT RCVD 
sSERRPC TSTNUM $BDADR $GDDAT $8DDAT 


READING D.P.C. WITH RELOCATE SET 
sERRPC TSTNUM BUSADR EXPCT RCVD 
;SERRPC TSTNUM $BDADR $GDDAT $8DDAT 


sOFFSET INDICATOR FAILED TO SET/CLEAR 
sERRPC TSTNUM BUSADR EXPCT  RCVD 
;SERRPC TSTNUM $BDADR $GDDAT $8DDAT 


HE INDEX NUMBER FOUND IN 

TES WHICH ITEM IN THE TABLE ss PERTINENT. 
SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC) 

EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


;:POINTS TO THE ERROR MESSAGE 
;;POINTS TO THE DATA HEADER 
;sPOINTS TO THE DATA 
;zPOINTS TO THE DATA FORMAT 


CZ7VSBB == VS60_ INSTRUCTION 5°! PART II MACY11 30G6(1063) 


. 
17-SEP-79 08 


CZ7VSBB.P11 10-SEP-79 11: ERROR POINTER TABLE 

2 :ITEM 6 

74 001332 030270 EM6 
75 1334 032323 DH1 
76 001336 032470 DT1 
77 001340 0 
78 

79 s ITEM 7 
80 

81 1342 030332 EM7 
B82 C01344 032323 DH1 
83 1346 032470 DT1 
8 001350 0 

85 

4 zITEM 10 
88 001352 030402 —EM10 
89 001354 032323 DH1 
90 001356 032470 DT1 
91 1360 000 0 
92 

93 ITEM 11 
94 

95 001362 030460 —EM11 
96 001364 032406 DH11 
97 1366 032512 DT11 
98 001370 0 
a9 
‘ : ITEM 12 
102 001372 030471 EM12 
103 001374 032323 DH1 
104 001376 032470 NT1 
105 001400 0 
106 
107 ; ITEM 13 
108 
109 001402 030544 EM13 
110 001404 032323 DH1 
111 001406 032470 DT1 
112 001410 0 
113 
ite :ITEM = 14 
116 001412 030571 EM14 
117 001414 032323 DH1 
118 001416 032470 pT1 
119 001420 0 


:46 PAGE 3 


SEQ 0015 


OF FSET 
sERRPC 
s SERRPC 


POLARITY BIT FAILED TO SET/CLEAR 
TSTNUM BUSADR EXPCT  RCVD 
TSTNUM $BDADR $GDDAT $B8DDAT 


: OFFSET INSTRUCTION FAILED TO LOAD DYNAMIC REGISTER 
RRPC TSTNUM BUSADR EXPCT  RCVD 
“ SERRPC TSTNUM $BDADR $GDDAT $8DDAT 


ZOFFSET INSTRUCTION FAILED TO LOAD EXTENDED POSITION BIT 
;ERRPC TSTNUM BUSADR EXPCT  RCVD 

;SERRPC TSTNUM $BDADR $GDDAT S$B8DDAT 

SCALE ERROR 

TERRPC TSTNUM EXPCT  RCVD SCALE STARTVAL 

[SERRPC TSTNUM $GDDAT $B8DDAT $TMPC $REGO 


ABSOLUTE VECTOR FAJLED TO LOAD a Y POS REG 


;ERRPC TSTNUM BUSADR- EXPCT 

SSERRPC TSTNUM $BDADR $GDDAT $8DDAT 
;GRAPHPLOT INC REG ER 

ZERRPC TSTNUM BUSADR EXPCT  RCVD 
TSERRPC TSTNUM $BDADR $GDDAT $8DDAT 
LOADING X POSITION REGISTER 

;ERRPC TSTNUM BUSADR EXPCT  RCVD 
TSERRPC TSTNUM $BDADR $GDDAT $BDDAT 
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CZ7VSBB.P11 10-SEP-79 11:32 ERROR POINTER TABLE SEQ 0016 
is} :1TEM = 15 
123 001422 030613 EM15 ;LOADING Y POSITION REGISTER 
124 001424 032323 DH1 sERRPC TSTNUM BUSADR- EXPCT RCVD 
125 001426 032470 DT1 sS$ERRPC TSTNUM $B8DADR $GDDAT S$BDDAT 
is6 001430 000000 0 
is ; ITEM 16 
130 001432 030635 EM16 ; INCREMENTING DELTA X OR DELTA Y REGISTERS 
131 001434 032323 DH1 sERRPC TSTNUM BUSADR- EXPCT RCVD 
132 1436 032470 DT1 sSERRPC TSTNUM $B8DADR $GDDAT S$B8DDAT 
ie 001440 000000 0 
iw sITEM = 17 
137 001442 030701 —EM17 ;DECREMENTING DELTA X OR DELTA Y REGISTER 
138 001444 032323 DH1 SERRPC TSTNUM BUSADR EXPCT RCVD 
139 001446 032470 DT1 sS$ERRPC TSTNUM $BDADR $GDDAT $8DDAT 
140 001450 0O 0 
141 
iée : ITEM 20 
144 001452 030745 EM20 ;EDGE INDICATOR UPON EXCEEDING AN EDGE 
145 001454 032323 DH1 sERRPC TSTNUM BUSADR- EXPCT RCVD 
146 001456 032470 DT1 ;SERRPC TSTNUM $8DADR $GDDAT S$BDDAT 
hy 001460 000000 0 
sp Z:ITEM = 21 
151 001462 031013 EM21 ;LOADING CHARACTER REGISTER 
152 001464 032323 DH1 sERRPC TSTNUM BUSADR- EXPCT RCVD 
153 001466 032470 DT1 :SERRPC TSTNUM $BDADR $GDDAT $B8DDAT 
tee 001470 000000 0 
13 sITEM = 22 
158 001472 031034 EM22 ; INCORRECT OR UNEXPECTED CHANGE IN X OR Y POSITION REGIS 
159 001474 032323 DH1 sERRPC TSTNUM BUSADR- EXPCT RCVD 
160 001476 032470 DT1 :SERRPC TSTNUM $BDADR $GDDAT S$8DDAT 
yg 001500 000000: 0 
7 sITEM =. 23 
165 001502 031123 EM23 ;WRONG DELTA X = SCALED CHARACTER MODE 
166 001504 032323 DH1 sERRPC TSTNUM BUSADR- EXPCT RCVD 
167 001506 032470 DT1 ZSERRPC TSTNUM $BDADR $GDDAT S$B8DDAT 
168 001510 000000 0 
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4 s ITEM 24 

172 001512 031164 EM24 ;WRONG DELTA Y = SCALED CHARACTER MODE 

173 001514 032323 DH1 sERRPC TSTNUM BUSADR- EXPCT RCVD 

174 001516 032470 DT1 sSERRPC TSTNUM $BDADR $GDDAT S$BDDAT 

i 001520 000000 0 

a4 :ITEM = 25 

179 001522 031225 EM25 ;WRONG DELTA Y ~ SCALED CHARACTE ary ROTATED 
180 001524 032323 DH1 sERRPC TSTNUM BUSADR- EXPCT RCVD 

181 001526 032470 DT1 ;SERRPC TSTNUM $8DADR $GDDAT S$8DDAT 

i 001530 000000 0 

ize ; ITEM 26 

186 001532 031276 EM26 ;WRONG DELTA X = SCALED CHARACTE MODE ROTATED 
187 001534 032323 DH1 ;ERRPC TSTNUM BUSADR- EXPCT RCVD 

188 001536 032470 DT1 sSERRPC TSTNUM $BDADR $GDDAT $8DDAT 

Ls 24 001540 000000 0 

13} :ITEM =27 

193 001542 031347 EM27 ;GRAPHPLOT INC FAILED TO SET UP X OR Y POS REG 
194 001544 032323 DH1 ;ERRPC TSTNUM BUSADR- EXPCT RCVD 

195 001546 032470 DT1 ;SERRPC TSTNUM $B8DADR S$GDDAT S$8DDAT 

Ms 001550 000000 0 

ib ; ITEM 30 

200 001552 031425 EM30 ;BASIC VECTOR FAILED TO LOAD X OR Y POS REG 
201 001554 032323 DH1 sERRPC TSTNUM BUSADR- EXPCT RCVD 

202 001556 032470 DT1 sSERRPC TSTNUM $8DADR $GDDAT $8DDAT 

203 001560 900000 0 

204 

44 7 ITEM 31 

207 001562 031500 —EM31 ;BASIC SHORT VECTOR FAILED TO LOAD X OR Y POS REG 
208 001564 032323 DH1 sERRPC TSTNUM BUSADR- EXPCT RCVD 

209 001566 032470 DT1 sSERRPC TSTNUM $BDADR $GDDAT S$B8DDAT 

210 001570 0 

211 

$i§ zITEM = =32 

214 001572 031561 EM32 sRESET et, TO CLEAR A REGISTER 

215 001574 032323 DH1 sERRPC TSTNUM BUSADR- EXPCT RCVD 

216 001576 032470 DT1 + $ERRPC TSTNUM $BDADR $GDDAT $8DDAT 

217 001600 000000 0 
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: ITEM 


001602 031615 sEDGE FLAG INTR ER 
001604 ;ERRPC TSTNUM BUSADR EXPCT RCVD 
;SERRPC TSTNUM $BDADR $GDDAT S$BDDAT 


;INTR PRIORTY FAILURE USING INTERNAL STOP 
SERRPC TSTNUM BUSADR EXPCT RCVD 
:SERRPC TSTNUM $BDADR $GDDAT $8DDAT 


;SHIFT-OUT BIT SET IN ERROR 
sERRPC TSTNUM BUSADR EXPCT RCVD 
;SERRPC TSTNUM $BDADR $GDDAT $BDDAT 


;SHIFT-OUT BIT FAILED TO SET 
sERRPC TSTNUM BUSADR EXPCT RCVD 
;$SERRPC TSTNUM $8DADR $GDDAT $B8DDAT 


; INTERNAL STOP FLAG FAILED TO SET 
sERRPC TSTPC 
:SERRPC $SLPADR 


; "FRAMES PER SECOND’ SYNC ER 
sERRPC TSTNUM BUSADR EXPCT RCVD 
:SERRPC TSTNUM $BDADR $GDDAT $8DDAT 


;LONG VECTOR FAILED TO SET UP X OR Y POS REG 
sERRPC TSTNUM BUSADR EXPCT RCVD 
:SERRPC TSTNUM S$BDADR $GDDAT SB8DDAT 


;POINT OR ABS VECTOR WITH OFFSET — TO SET UP X OR Y 
sERRPC TSTNUM BUSADR EXPCT RCV 
;SERRPC TSTNUM $BDADR $GDDAT SEDDAT 
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CZ7VSBB.P11 


10-SEP-79 1 


032245 


ERROR POINTER TABLE 


EM43 eae ate CHAR SCALE OR DELTA X OR Y ER 
DH1 SERRPC TSTNUM BUSADR EXPCT RCVD 
th ;SERRPC TSTNUM $8DADR $GDDAT S$BDDAT 


PROGRAM TAGS AND STORAGE LOCATIONS 


BUFFER FIRST WORD IN THE DISPLAY BUFFER 
BUF FER+2 SECOND WORD 
BUF FER+4 ; THIRD WORD 
BUF FER+6 FOURTH WORD 
BUF FER+10 :FIFTH WORD 
BUF FER+12 SIXTH WORD 
; ; TEMP REG. 
0 BUFFER SIZE 
0 ; CONTAINS TEST NO. ON ERROR 
: 200 CONTAINS BR LEVEL TAKEN FROM $VECT1. 
+) CHARACTER SCALE CHARACTER SIZE VALUES 
21. 
28. 
12. CHARACTER SCALE LINE FEED SIZE VALUES 
‘i. 
62. 


SEQ 0019 
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CZ7VSBB.P11 10-SEP-79 11:32 ERROR POINTER TABLE SEQ 0020 
$e 3VS-60 ADDRESSES AND VECTORS POINTERS 
326 001760 172000 DPC: 172000 ;DISPLAY PC REGISTER 
327 001762 172002 SREGO: 172002 ;DISPLAY STATUS REGISTER 
328 003764 172004 XPOS: 172004 >X AXIS Seeler ER AND GRAPHPLOT REG <READ ONLY> 
329 001766 172006 YPOS: 172006 7:Y AXIS REGISTER AND CHARACTER REG <READ ONL Y> 
30 001770 172010 RLO: 172010 RELOCATION REGISTER 

331 001772 172012 SREG1: 172012 s;MISC STATUS REGISTER #1 
332 001774 172014 XDOFF: 172014 3X DYNAMIC OFFSET REGISTER 
333 001776 172016 YDOFF: 172016 :Y DYNAMIC OFFSET REGISTER 

002 172020 172020 sASSOCIATIVE NAME REGISTER 
335 002002 172022 CONS 172022 ; CONSOLE STATUS REGISTER 

2 172024 172024 :DISPLAY NAME REGISTER 

337 2 172026 STKVAL: 172026 :VALUE OF CURRENT STACK WORD 

002010 172030 TERMCH: 172030 ; TERMINATE CHARACTER REGISTER 
339 002012 172032 STKPT: 172032 :STACK POINTER REGISTER 
340 002014 172034 ZPOS: 172034 ;Z POSITION REGISTER <READ ONLY> 
3 002016 172036 ZDOFF: 172036 ;Z DYNAMIC OFFSET REGISTER 
343 002020 000320 DDONE: 320 ;DISPLAY STOP <DONE> VECTOR 
see 002022 000322 DDONE1: 322 : 
346 002024 000324 LPVCT: 324 DISPLAY LIGHT PEN VECTOR 
rot 4 002026 000326 LPVCT1: 326 : 
349 002030 000330 TIMEVT: 330 ;DISPLAY TIME-OUT <NXM.> ERROR VECTOR 
aay 002032 000332 TMEVT1: 332 ; OR ‘’SHIFT-OUT'’ VECTOR 
352 002034 000334 NAMEVT: 334 ;NAME MATCH VECTOR 


353 002036 000336 NAMEV1: 336 
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C7VSBB.P11 10-SEP-79 11:32 ERROR POINTER TABLE SEQ 0021 
$22 SOFTWARE INITALIZATION ROUTINE 
358 002040 012737 177777 024356 BEGINA: MOV #~1 sEXSYNC CHECK FOR EXT SYNC TMG (START 210) 
359 002046 000402 Ge BEGIN SKIP OVER CLR 
360 002050 005037 024356 BEGIN: CLR PESYNC DON'T CHECK FOR EXT TMG (START 200) 
361 002054 BEGIN1: 
(1) .SBTTL INITIALIZE THE COMMON TAGS 
(1) 7: CLEAR THE COMMON TAGS ($CMTAG) AREA 
(1) 002054 012706 001100 MOV #SCMTAG,R6 FIRST LOCATION TO BE CLEARED 
(1) 002060 005026 CLR (R6)+ SO CLEAR MEMORY LOCATION 
(1) 002062 022706 001140 CMP #SWR,R6 ;;DONE? 
(1) 002066 001374 ONE i ;;LOOP BACK IF NO 
(1) 002070 012706 001100 KeSP ::SETUP THE STACK POINTER 
(1) ss INITIALTYE A rey. VECTOR 
(1) 002074 012737 025164 000020 MOV #SSCOPE, SPIOTVEC 2407 VECTOR FOR SCOPE ROUTINE | 
(1) 002102 012737 000340 000022 MOV #340, a#IOTVEC+2 : L 7 
(1) 002110 012737 025710 000030 MOV ASERROR, aFEMTVEC sem VECTOR FOR ERROR ROUTINE 
(1) 002116 012737 000340 000032 MOV #340, a#EMTVEC+2 :sLEVE 
(1) 002124 012737 027616 000034 MOV AS TRAP, AA TRAPVEC FF TRAP VECTOR FOR TRAP CALLS 
(1) 002132 012737 000340 000036 MOV #340, a#TRAPVEC+2;LEVEL 7 
(1) 002140 012737 026704 900024 MOV #SPWRDN, @APWRVE C : s POWER FAILURE VECTOR 
(1) 002146 012737 000340 000026 MOV #340, a#PWRVEC+2 :sLEVE L 7 
(1) 002154 013737 0244.56 024430 MOV SENDCT, SEOPCT ‘SETUP END-OF -PROGRAM COUNTER 
(1) 002162 005037 001166 CLR STIMES +: INITIALIZE NUMBER OF ITERATIONS 
(1) 002166 005037 001170 CLR SESCAPE 3: CLEAR THE ESCAPE ON ERROR ADDRESS 
(1) 002172 112737 000001 001115 MOVB #1, SERMAX ALLOW ONE ERROR PER TEST 
(1) 002200 012737 002200 001106 MOV #. -SLPADR :3 INITIALIZE THE LOOP ADDRESS FOR SCOPE 
(1) 002206 012737 002206 001110 MOV »SLPERR SETUP THE ERROR LOOP ADDRESS 
(2) s:SIZE FOR A WARDUARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
(2) ;;EQUAL TO A ‘*'=1°", SETUP FOR A SOFTWARE SWITCH REGISTER. 
(2) 002214 013746 000004 MOV @#ERRVEC ,-(SP) << SAVE ERROR VECTOR 
(2) 002220 012737 002254 000004 MOV #64$,,Q@HERRVEC SET UP ERROR VECTOR 
(2) 002226 012737 177570 001140 MOV #DSWR, SWR ; SETUP FOR A HARDWARE SWICH REGISTER 
(2) 002234 012737 177570 001142 MOV #DDISP,DISPLAY ;;:AND A HARDWARE DISPLAY REGISTER 
(2) 002242 022777 177777 176670 CMP #-1,aSWR i: TRY TO REFERENCE HARDWARE SwWR 
(2) 002250 001012 BNE 66$ BRANCH IF NO TIMEOUT TRAP OCCURRED 
(2) SZAND THE HARDWARE SWR IS NOT = -1 
(2) 002252 000403 BR 65$ ; BRANCH IF NO TIMEOUT 
(2) 002254 012716 002262 64$: MOV #65$, (SP) ::SET UP FOR TRAP RETURN 
(2) 002260 000002 RTI 
(2) 002262 012737 000176 001140 65$: MOV AHSWREG, SWR :zPOINT TO SOFTWARE SWR 
(2) 002270 012737 000174 001142 MOV #D1ISPREG, DISPLAY 
oH 002276 012637 000004 66$: MOV (SP)+,a#ERRVEC ;:RESTORE ERROR VECTOR 
(2) 002302 005037 001204 CLR $PASS CLEAR PASS COUNT 
(2) 002306 132737 000200 001217 BITB MAPTSIZE,SENVM ;;TEST USER SIZE verR et 
(2) 002314 001403 BEQ 67$ 7: YES,USE NON-APT SWIT 
oS oneele 012737 001220 001140 ati MOV ASSWREG, SWR *ZNO,USE APT SWITCH REGISTER 
362 002324 013700 001246 SETUP1: MOV $VECT1,RO ; GET BUS PRIORITY LEVEL. 
363 002330 300 SWAB RO 
364 002332 042700 177437 BIC #*C340,R0 ; MASK PSW BITS 
365 002336 010037 001736 MOV RO,BRLEV1 : AND SET BR LEVEL. 
366 002342 012700 001760 MOV #DPC RO SET UP VS60 REG ADRS POINTERS 
367 002346 013701 001252 MOV $BASE ,R1 


368 002352 010120 SETUP2: MOV R1, (RO) + 


CZ7VSBB == VS60 INSTRUCTION TEST PART II MACY11 30G(1063) 17-SEP-79" 08:46 PAGE 8-1 


CZVSBB.P11 10-SEP-79 11:32 INITIALIZE THE COMMON T SEQ 0022 
3%9 002354 062701 000002 ADD #2,R1 
370 002360 022700 002020 CMP A#DDONE .RO TEST FOR LAST ADDRESS 
371 002364 001372 BNE SETUP2 
372 002366 012700 002020 MOV #DDONE ,RO ;SET UP VS60 VECTOR ADRS POINTFRS 
373 002372 013701 901246 MOV $VECT1,R1 
374 002376 042701 160000 BIC #160000,R1 :MASK OF BITS OF PRIORITY 
375 ooSent 010120 SETUP3: MOV R1,(RO)+ 
376 002404 062701 000002 ADD #2,R1 
377 002410 022700 902040 CMP #BEGINA,RO TEST FOR LAST VECTOR 
378 002414 001372 BNE SETUP3 
002416 004737 024634 JSR PC ,RSTVEC ;GO SET UP VS60 VECTOR ADRS'S WITH HLTS 
380 002422 004737 027124 JSR PC,$SIZE [DETERMINE LAST LOCATION 
381 002426 013737 027220 001732 MOV SLSTAD, SIZE [LOAD LAST BUS ADDRESS 
382 002434 162737 006000 001732 SUB #6000,SIZE SAVE LOADERS AND XXDP 
383 002442 005737 000042 TST a442 ; TEST IF RUNNING CHAIN MODE UNDER XXDP 
384 002446 001004 BNE RESTRT ;BR IF SO 
385 002450 104401 TYPE [GO IDENTIFY TEST 
386 002452 027666 HEADER 
387 002454 104401 TYPE 
388 002456 027752 ECOMSG ; AND TELL HIM ABOUT THE ECO. 
389 002460 012737 000340 177776 RESTRT: MOV #340 ,PSW [SET PRIORITY TO HIGHEST LEVEL 
390 002466 012706 001100 MOV AMSTACK, SP SALWAYS RESET STACK POINTER 
391 002472 000005 RESET ZS INITILIZE VS60 BEFORE STARTING TESTS 
392 002474 105037 001102 CLRB $TSTNM ;RESET TEST NUMBER 
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C7VSBB.P11 10-SEP-79 11:32 SEQ 0023 
395 -SBTTL 
396 “SBITL THESE TESTS USE MAINT SWITCH BITS 
39” *SBITL 
399 FERRER ERE KEE REE REE RRR ERK EERE EER ERE 
(3) S*TEST 1 FLOAT A ONE THRU RELOCATE REG 
(3) 5 LARK RRR REE EREEKREEEREEREKEEEKEEERREREKERREEEKERRKAKEE 
(2) 0025 TST1: | SCOPE 
(2) 002502 012737 000001 001202 MOV #1,$TESIN ::SET TEST NUMBER IN APT MAIL BOX 
400 002510 012737 002532 001110 MOV ais, SLPERR :SET UP SCOPE LOOP ADRS 
401 002516 013737 001770 001122 MOV 0; $BDADR *SET UP RLO ADRS 
402 002524 012737 004000 001124 MOV F000, SCDDAT [SET UP MSB TO A ONE 
403 002532 013777 001124 177230 1$: MOV SGDDAT, aRLO ‘LOAD UP RLO REG 
404 002540 017737 177224 001126 MOV @RLO, $BDDAT [READ IT BACK 
405 002546 023737 001124 001126 CMP SGDDAT,$BDDAT IS IT CORRECT? 
406 002554 00140 BEQ 2$ :BR IF OK 
407 002556 10400 ERROR 3 *RELOCATE REG READ/WRITE ER 
408 2 006237 001124 2s: ASR $GDDAT ;SHIFT ONE BIT RIGHT 
409 002564 00136 BNE 1$ :BR IF NOT DONE 
410 002566 005077 177176 CLR aRLO S INSURE 0 RELOCATE REG BEFORE ADVANCING 
412 J RRR KKK REE EKER REKEKERKEK EERE EREKEERREKKEKEEKEKKEEREEREKEEKEKKE 
(3) :*xTEST 2 TEST THAT ALL MAINT TYPE BITS ARE READ/WRITEABLE 
(3) MASDSBSAA£A£22£22 222 S22 SES ES ESL SES ESE SESE SESS RRS ERASER RRR ER ESRC S RS SG 
(2) 002572 7812: SCOPE 
(2) 002574 012737 001202 MOV #2,$TESTN z:SET TEST NUMBER IN APT MAIL BOX 
413 002602 013737 002012 001122 MOV STKPT,$BDADR SET UP REG 32 ADRS 
414 002610 012737 002624 001110 MOV #1$,$LPERR [SET UP SCOPE LOOP ADRS 
415 002616 012737 17 001124 MOV #170000, $GDDAT [EXPECT ALL BITS INITIALLY 
416 002624 013777 001124 177160 1$: MOV $GDDAT,@STKPT :LOAD UP MAINT BITS 
417 002632 017737 177154 001126 MOV @STKPT.$BDDAT :READ THEM BACK 
418 002640 042737 007777 001126 BIC #7777,$BDDAT SAVE ONLY MAINT SWITCHES 
419 002 023737 001124 001126 CMP $GDDAT , SBDDAT SARE THEY CORRECT? 
420 002654 001401 BEQ 2$ F SO 
421 002656 04001 ERROR 1 <MAINT eree _— ERROR 
422 002660 162737 010000 001124 2$: SUB #10000,$GDDAT :GO TO NEXT 
425 002666 100356 BPL 1$ ‘BR IF ALL STATES NOT TESTED 
425 FL ERR ERR EKEREREKKEKEEEKEEEEKEERKEEREEEEKEEEEKEEEKKKEKEEE 
(3) s*TEST 3 FLOAT A 1 ACROSS THE D.P.C. 
(3) JF EAR EEEKKEEEEKEREEREREREKEKEREEREAEKREEEEEKKEKKEEK 
(2) 002670 TST3: SCOPE 
(2) 002672 012737 3 001202 MOV #3,$TESIN :zSET TEST NUMBER IN APT MAIL BOX 
426 002700 013737 001760 001122 MOV PC ,$BDADR :SET UP REG ADRS 00 
427 002706 012737 002730 001110 MOV #1$.$LPERR [SET UP SCOPE LOOP ADRS 
428 002714 012737 2 001124 MOV WBIT1,$GDDAT  :LOAD EXPECTED 
429 002722 012777 01 177062 MOV WB1T12,aSTKPT sSET MAINT SWITCH #1 
430 002 13777 001124 177022 1$: MOV SGDDAT. ZLOAD D.P.C. 
431 002736 017737 177016 001126 MOV @DPC, $BDDAT TREAD D.P.C. INTO SBDDAT 
432 002744 023737 001124 001126 CMP SGDDAT,$BDDAT COMPARE VALUE EXPECTED TO READ 
433 002752 001401 BEQ 2$ >;BR IF SAME 
434 002754 10400 ERROR 2 :FAILED TO LOAD DPC WITH A 
435 SFLOATING 1 
436 002756 006337 001124 2s: ASL SGDDAT SCHANGE DATA EXPECTED 
437 002762 103362 BCC 1$ ‘BR IF NOT COMPLETED 
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MASSASASAAASALASASALLALELAL SAS ASESE SSSA R SA EER ARRAS ERS R ASAE SS SG 
:*TEST 4 TEST THAT THE RELOCATE REG WILL CORRECTLY SET UP THE DPC 
MASAALA£LA£ SAAR SASSER ESSSE ALES SERS SESS RR SRR ERR SERRE SESS SS 
1814: 
#100, $TIMES +2D0 100 ITERATIONS 
#4, STESTN SET TEST NUMBER IN APT MAIL BOX 
#B1T12,aSTKPT 
DPC ,SBDADR 


apPC S INSURE 0 DP 
#100, $GDDAT ZEXPECT 100 INITIALLY 
#1,R0 START WITH 

RO,aRLO FORD RELOCATE REG 

#1$, -SLPERR ‘SET UP SCOPE LOOP ADRS 

@DPC , $BDDAT :READ RELOCATE REG-SB TIMES 64 
a /SBDDAT 1S IT T CORRECT? 


RELOCATE FAILED TO SET UP DPC CORRECTLY 
#100, $GDDAT SET UP NEXT EXPECTED VALUE 
3$ ;BR_IF ALL 15 BITS TESTED 

RO 7 v4 NEXT PATTERN 


BR 1$ Y IT 
3$: @RLO :FERO. RELOCATE BEFORE ADVANCING 


J TARR ERR ERE EERE EEEEKEKE EEE EEREKEKKKEK 


s*TEST 5 TEST THAT THE OFFSET INDICATOR WILL SET & RESET 


J LRA REE EEEEREREEKEEREEEEEREEEREAEKEEKKEREREEEKREKEEEKEKREREKEEE EE 


TSTS: 
ger anit — R IN APT MAIL BOX 
sEXPECT OFFSET TO 4 SET INITIALLY 
;SET UP OFFSET INSTR 
;LOAD ‘'CHAR’’ INST. (f0 RESET INDICATOR) 


173604 R,@DPC 7 STAR 
032532 #10000, BUFFERS2 | TOFFSET 0 
aDP PICK UP _X 
032534 #10000 ,BUFFER+4 ;Y=OFFSET ‘0 
aDPC PICK UP Y 
001122 STKPT , S8DADR 7SET_UP REG ADRS 32 
176576 + aalceahiaatel :I1S THE OFFSET INDICATOR SET? 


BR IF OK 

SBDDAT : INDICATE IT WAS NOT SET 

5 : OFFSET INSTR INDICATOR FAILED TO SET 
176530 ; aDPC PICK UP CHAR INSTR = SHOULD CLR OFFSET INDICATOR 
001124 SGDDAT TEXPECT 0 
002000 176550 #2000 ,@STKPT :DID THE Ade 1 INDICATOR CLR? 

T 3:GO TO NEXT TEST IF OFFSET INDICATOR RESET 
002000 001126 MOV #2000, S$BDDAT + IND ICATE IT WAS STILL SET 

5 [OFFSET INSTR INDICATOR FAILED TO CLR 


-SBTTL 
-SBTTL THESE TEST RUN AT FULL SPEED 
- SBTTL 


FLARE EEEEREREREEREEREREREEEEREEAEREREEREREEREEEEEK EE 


:*TEST 6 TEST THAT OFFSET INSTR CAN SET & RESET X POLARITY BIT AT REG 36 


CT AAA ARERR ERE EEE EERE ERE 


SEQ 0024 
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CZVS8B.P11 10-SEP-79 11:32 T6 T THAT OFFSET INSTR CAN SET & RESET X POLARITY BIT AT REG 36 SEQ 0025 
(2) 003254 000004 TST6: SCOPE 
(2) 003256 012737 000006 001202 MOV #6, STESTN :;SET TEST NUMBER IN APT MAIL BOX 
4 3264 012777 0000460 176520 MOV #40, aSTKPT ‘RESET MAINT. BITS & ‘TOP OF STACK’ 
485 003272 013737 002016 001122 MOV ZDOFF ,$BDADR :SET UP REG 36 ADRS 
486 003300 012737 100000 001124 MOV #100000,$GDDAT ‘EXPECT POLARITY BIT TO BE SET INITIALLY 
487 003306 012737 114000 032530 MOV #114000,BUFFER SET UP OFFSET INST 
488 003314 012737 030000 032532 MOV #30000,BUFFER+2 :SET UP LD OFFSET POLARITY BIT AT X DATA 
489 003322 012737 010000 032534 MOV #10000. BUFFER+4 :Y OFFSET=0 
490 003330 012737 172000 032536 MOV #172000 ,BUF FER+6 ;LD STOP INSTR 
491 003336 012737 161773 032540 MOV #161773,BUFFER+10 ‘JUMP TO REPEAT TEST 
492 003344 004737 024524 JSR PC, EXECUTE ‘START DISPLAY AND WAIT FOR STOP FLAG 
493 003350 005777 176442 TST aZDOFF 31S X POLARITY SET? 
494 003354 100403 BMI 1$ ‘BR IF SO 
495 003356 005037 001126 CLR SBDDAT ‘SHOW IT WAS NOT SET 
49% 003362 104006 ERROR i OFFSET INSTR FAILED T9 SET X POLARITY 
497 003364 005037 001124 1$: CLR PREPARE FOR RESET STATE 
498 70 042737 020000 032532 BIC #20000, BUF FER+2 RESET POLARITY AT INSTR LOC 
499 003376 004737 024552 JSR CONT UME 
500 003402 005777 176410 TST azborr IS X POLARITY RESET? 
501 003406 100004 BPL ST7 + :NEXT TEST Ri 
502 003410 012737 100000 001126 MOV #100000, S8DDAT SHOW IT 5 SET 
sie 003416 104006 ERROR 6 sOFFSET INSTR FAILED TO RESET X POLARITY 
505 J LAA RRR EAE EEEEKEKKEKEREEKREEERREEEEERKEERREEEERREKEEKEKK 
(3) s*TEST 7 TEST THAT OFFSET INSTR CAN SET & RESET Y POLARITY BIT AT REG 36 
(3) FLARE REE EEKEKEEEEEKEKEREEREKEEKEREEEEKEEKKEKEKEKREKEEKEKE 
(2) 003420 000004 TST7: SCOPE 
(2) 003422 012737 000007 001202 MOV #7, $TESTN 3zSET TEST NUMBER IN APT MAIL BOX 
506 603430 013737 002016 001122 MOV ZDOFF ,$8DADR §:SET UP REG 36 ADRS 
507 003436 012737 040000 001124 MOV #40000 SGDDAT sEXPECT POLARITY BIT TO BE SET INITIALLY 
508 003444 012737 114000 032530 MOV #114000,BUFFER :SET UP OFFSET INSTR 
509 003452 012737 010000 032532 MOV #10000, BUFFER+2 :SET UP X VALUE 
510 003460 012737 172000 032536 MOV #172000 ,BUFFER+6. ;LOAD ‘‘STOP’' INST. 
511 003466 012737 030000 032534 MOV #30000,BUFFER+4 ;SET UP LD OFFSET & POLARITY AT Y DATA 
512 003474 012737 161773 032540 MOV arti ls BUFFER+10 ;JUMP TO REPEAT TEST 
513 003502 004737 024524 JSR PC EXECUT E * START DISPLAY AND WAIT FOR STOP FLAG 
514 003506 032777 040000 176302 BIT #40000,aZD0FF ;IS Y POLARITY BIT SET? 
515 003514 001003 BNE 1$ “BR IF SO 
516 003516 005037 001126 CLR S$BDDAT tSHOW IT WAS NOT SET 
517 003522 104006 ERROR 6 SOFFSET INSTR FAILED TO SET Y POLARITY 
518 003524 005037 001124 1$: CLR $GDDAT SADVANCE TO RESET STATE 
519 003530 042737 020000 032534 BIC #20000 .BUFFER+4 RESET POLARITY AT INSTR LOC 
520 003536 7? 024552 JSR PC, CON 
521 542 032777 040000 176246 BIT #40000,aZD0FF IS Y POLARITY RESET? 
522 003550 001404 BEQ TST10 t:NEXT TEST IF SO 
523 003552 012737 040000 001126 MOV #40000,$8DDAT :SHOW IT WAS SET 
524 003560 104006 ERROR 6 SOFFSET INSTR FAILED TO RESET Y POLARITY 
526 JERE EREEEEEREREKREEREEERAEEEEREREEEEEEEEREREREKEKEKEE 
(3) ;STEST 10 TEST THAT OFFSET INSTR CAN LOAD X & Y DYNAMIC OFFSET REG 
(3) SEAR EAEEREEREEEEEREEREEEEEEEAEREREAREEEEEEREEEREEREEEREE 
(2) 003562 000004 78110: SCOPE 
(2) 003564 012737 000010 001202 MOV #10, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
527 003572 012737 003624 001110 MOV #1$-$LPERR *SET UP SCOPE LOOP ADRS 
528 003600 012737 116000 032530 MOV #116000,BUFFER SET UP THE 0 OFFSET INSTR 
529 003606 012737 172000 032536 MOV #172000. BUFFER+6" “STOP’’ INST. 
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CZVSBB.P11 10-SEP-79 11:32 T10 T THAT OFFSET INSTR CAN LOAD X & Y DYNAMIC OFFSET REG SEQ 0026 
530 003614 012700 004000 MOV #4000,R0 :FLOAT A ONE IN X POS 
531 003620 012701 173777 MOV #173777,R1 FLOAT A ZERO IN Y POS 
532 003624 010037 032532 1$: MOV RO, BUFFER+2 “SET UP X POS 
533 003630 010137 032534 MOV R1BUFFER+4 ‘SET UP Y POS 
534 003634 042737 170000 032532 BIC w170000 BUFFER*2 ‘PLUS, 12 BITS 
535 003642 042737 170000 032534 BIC #170000, BUF F S12 BITS 
536 003650 052737 010000 032532 BIS #BITi2, SOFFERS2 SINDICATE. OFFSET INSTR IN 
537 003656 004737 024524 JSR PC, EXECU TE ;START DISPLAY AND WAIT FOR STOP FLAG 
538 003662 013737 001774 001122 MOV XDOFF ,$8DADR ; SET UP REG ADRS 14 
539 003670 013737 032532 001124 MOV BUFFER+2,$GDDAT :LD EXPECTED 
540 003676 042737 010000 001124 BIC #81T12,$GDDAT ;DON'T WANT OFFSET BIT 
1 003704 017737 76064 001126 MOV @XDOFF , S8DDAT “READ X DYNAMIC OFFSET REG 
542 003712 023737 001124 001126 CMP SGDDAT , SB8DDAT ; CORRECT? 
543 003720 001401 BEQ 2$ :BR IF SO 
544 003722 104007 ERROR 7 ;OFFSER INSTR FAILED TO SET UP X DYNAMIC OFFSET REG 
545 003724 013737 001776 001122 2: MOV YDOFF,$8DADR §:SET UP REG ADRS 16 
546 003732 013737 032534 001124 MOV BUFFER+4,$GDDAT ;LD EXPECTED 
547 003740 017737 176032 001126 MOV @YDOFF ,$8DDAT  :READ Y DYNAMIC OFFSET REG 
548 003746 023737 001124 001126 CMP SGDDAT , SB8DDAT ; CORRECT? 
549 003754 001 BEQ 3$ [BR IF SO 
550 003756 104007 ERROR 7 4 th ay FAILED TO SET UP Y DYNAMIC OFFSET REG 
551 003760 006200 3$: ASR RO *FLOAT PAT RIGHT 
552 003762 001403 BEQ 4$ “BR IF “5 DONE WITH FLOAT ONE 
553 003764 006201 ASR R1 ‘FLOAT PAT RIGHT 
554 003766 001406 BEQ TST11 NEXT TEST IF ONES AND ZEROS TESTED 
555 003770 000715 BR 1$ ‘REPEAT TEST THIS PATTERN 
556 003772 012700 173777 4$: MOV #173777,R0 *NOW FLOAT A ZERO IN X 
557 003776 012701 004000 MOV #4000,R1 ‘NOW FLOAT A ONE IN Y 
358 004002 000710 BR 1$ *REPEAT TEST 
560 LL RRR RARER RARER RERERRR ERRATA ERE 
(3) s*TEST 11 TEST THAT X & Y POSITION REGS CAN BE LOADED CORRECTLY USING POINT MODE 1 
(3) J FREAK EAE EEREAREREKAEEREEERKEEKEEEEKK 
(2) 004004 000004 1ST11: SCOPE 
(2) 004006 012737 000011 001202 MOV #11,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
561 004014 005077 175754 CLR a@XDOFF :CLR REG 14 
562 004020 005077 175752 CLR a@YDOFF =CLR REG 16 
563 004024 012737 004056 001110 MOV #1$, SLPERR [SET UP SCOPE LOOP 
564 004032 012737 116000 032530 MOV #116000,BU ‘LD POINT INSTR 
565 004040 012737 172000 032536 MOV #172000 BUT FERSG :LD STOP INSTR 
566 004046 012700 004000 MOV #4000,R :FLOAT A ONE IN X POS 
567 004052 012701 173777 MOV #173777,R1 SFLOAT A ZERO IN Y POS 
568 004056 010037 032532 1$: MOV RO BUF FER+2 :SET UP X POS 
569 062 010137 34 MOV R1 BUFFER +4 *SET UP Y POS 
570 004066 04 32532 BIC #170000, BUFFER+2.;12 BITS 
571 004074 042737 170000 032534 BIC #170000,BUFFER+4 :12 BITS 
572 004102 004737 024524 JSR PC C EXECUTE START 
573 004106 013737 001764 001122 MOV $BDADR :SET UP REG. 04 ADRS 
574 004114 013737 032532 001124 MOV BUFPERSS SGDDAT LD EXPECT 
575 004122 017737 175636 001126 MOV @XPOS,$BDDAT  :READ X PO 
576 004130 017705 175640 MOV a@XDOFF .RS :GET HI ORD ER 
577 004134 004737 025136 JSR PC ,POCONV 7GO MAKE sLP 14 XY x POS 
578 004140 023737 001124 001126 CMP $GDDAT.$BDDAT :CORRECT? 
579 004146 001401 BEQ $ :BR IF SO 
580 004150 104014 ERROR 14 ‘POINT INSTR FAILED TO LOAD X POS CORRECTLY 
581 004152 013737 001766 001122 2$: MOV YPOS , $BDADR SSET UP REG 06 ADRS 
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S82 004160 013737 032534 001124 MOV BUFFER+4, SGDDAT :LD EXPECTED 
S83 004166 017737 175574 001126 MOV aYPOS $BDDAT  :READ Y POS 
$84 004174 017705 175576 MOV aYDOFF RS ‘GET HI ORDER Y POS 
585 004200 004737 025136 JSR PC ,POCONV 'GO MAKE UP 14 ‘BIT Y POS 
586 004204 023737 001124 001126 CMP SGDDAT,$BDDAT CORRECT? 
587 004212 001401 BEQ 3$ ‘BR IF SO 
588 004214 104015 ERROR 15 [POINT INSTR FAILED TO LOAD Y POS CORRECTLY 
589 004216 006200 3$: ASR RO FLOAT Par RIGHT 
590 004220 001403 BEQ 4$ ‘BR IF X DONE WITH FLOAT 1 
591 004222 006201 ASR R1 ‘FLOAT PAT RIGTH 
592 004224 001406 BEQ TST12 :s;NEXT TEST IF ONES + ZEROS FLOATED 
593 004226 000713 BR 1$ ‘REPEAT TEST THIS PAT 
594 004230 012700 173777 4$: MOV #173777,R0 NOW FLOAT ZERO IN X 
595 004234 012701 004000 MOV #4000,R1 ‘NOW FLOAT ONE IN Y 
596 004240 000706 BR 1$ ‘REPEAT TEST 
598 . ; REAR RKKKAKKKKEKEKREKEKKKKKKEK 
(3) T*TEST 12 TEST THAT X & Y POSITION REGS CAN BE LOADED CORRECTLY USING ABS VECTOR 
(3) : = PASS SRAS£AAALAL2ASESLESELAALASESE SEES ESAS SSS EER RRR ERE S RS ESS SESS SS 
(2) 004242 000004 TST12: SCOPE 
(2) 004244 012737 000012 001202 MOV #12, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
599 004252 005077 175516 CLR @XDOFF [CLR REG 14 
600 004256 005077 175514 CLR aYDOFF [CLR REG 16 
601 004262 012737 004326 001110 MOV #1$,$LPERR ‘SET UP SCOPE LOOP 
602 004270 012700 032530 MOV #BUF FER, RO ‘SET INSTR ADRS 
603 004274 012720 116000 MOV #116000. (RO)+  :POINT INSTR 
604 004300 005020 CLR (RO)+ ix = 0 
605 004302 005020 CLR (RO) + 7¥ = 0 
606 004304 012720 146000 MOV #146000,(RO)+ ABSOLUTE VECTOR INSTR 
607 004310 022020 CMP (RO) +, (RO) + [SKIP OVER VECTORS PTS 
608 004312 012710 172000 MOV #172000, (RO) :SET UP HALT 
609 004316 012700 004000 MOV #4000,RO [FLOAT A ONE IN X VECTOR POINT 
610 004322 012701 173777 MOV #173777,R1 ‘FLOAT A ZERO IN Y VECTOR POINT 
611 004326 010037 032540 1$: MOV RO,BUFFER+10 SET UP X POINT 
612 004332 010137 032542 MOV R1.BUFFER+12 § :SET UP Y POINT 
613 004336 042737 170000 032540 BIC #170000, BUFFER+10 :12 BITS 
614 004344 042737 170000 032542 BIC #170000. BUFFER+12 :12 BITS 
615 004352 004737 024524 JSR PC EXECUTE START 
616 004356 013737 001764 001122 MOV XPOS, $BDADR :SET UP REG 104 ADRS 
617 004364 013737 032540 001124 MOV BUFFER+10, SCDDAT :LD EXPEC 
618 004372 017737 175366 001126 MOV @XPOS , SBDDA ZREAD X a 
619 004400 017705 175370 MOV @XDOFF .RS ‘GET HI ORDER X POS 
620 004404 004737 025136 JSR PC ,POCONV 'GO MAKE UP 14 BIT X POS 
621 004410 023737 001124 001126 CMP $GDDAT,$BDDAT CORRECT? 
622 004416 001401 BEQ 2$ ‘BR IF SO 
623 004420 104012 ERROR 12 ‘ABSOLUTE VECTOR INSTR FAILED TO LOAD X POS 
624 004422 013737 001766 001122 28: MOV YPOS , SBDAD [SET UP REG 06 ADRS 
625 004430 013737 032542 001124 MOV BUFFER+12, Scppar’ sLD EXPECTED 
626 004436 017737 175324 001126 MOV @YPOS,$BDDAT  ;READ Y POS 
627 004444 017705 175326 MOV aYDOFF AR R5 :GET HI ORDER Y POS 
628 004450 004737 025136 JSR PC ,POCONV 'GO MAKE UP 14 BIT X POS 
629 004454 023737 001124 001126 CMP $GDDAT,$BDDAT :CORRECT? 
630 004462 001401 BEQ 3$ :BR IF SO 
631 004464 104012 ERROR 12 ‘ABSOLUTE VECTOR INSTR FAILED TO LOAD Y POS 
632 004466 006200 3$: ASR RO ‘FLOAT PAT RIGHT 


633 004470 001403 BEG 4$ 7BR IF X DONE WITH FLOAT 1 


C 
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004472 R1 ;FLOAT PAT RIGHT 
004474 l TST13 ssNEXT TEST IF ONES ; ZEROES FLOATED 
004476 1$ ;REPEAT TEST THIS PAT 
0045 173777 : #173777,RO :NOW ay ZERO . x 
004000 #4000,R1 SNOW FLOAT ONE IN 
;REPEAT TEST 
5 FEAR EKEEEEEEREEEEEERKERKEEREEREEEEREERERKE REE 
s*TEST 13 TEST THAT X POSITION BITS 10 & 11 WILL SET & RESET VIA OFFSET INSTR 
FL ARERR EERE EEE ERE EERE EERE EERE EERE EK EK 
TST13: 
#13,$TESTN :zSET TEST NUMBER IN APT MAIL BOX 
#1$,$LPERR sa LOOP ADRS 
XDOFF SBDADR 


T ADRS 
001124 #36000,$GDDAT :EXPECT BOTH BITS INITIALLY 
:GET INSTR ADRS POINTER 


; LOAD — INSTR 


(RO) + :Y OF O 

#172000, (RO) ;LOAD STOP INSTR 
@XDOF F :CLR OFFSET REG 

PC EXECUTE :GO START DISPLAY 
@XDOFF,SBDDAT ;READ REG 14 
eres ates zARE Hg CORRECT? 


BR IF 
10 OFFSET INSTR oT ha TO LOAD HIGH ORDER X POSITION BIT 
#12000,$GDDAT_ _;SET UP FOR — ROUT INE 

#2000,BUFFER+2 ;SET UP NEXT VALUE 

#6000,BUFFER+2 ALL VALUES TESTED? 

1$ ;BR IF NOT 


DIOR III IOI ICICI IOI IOIIOIIOI III IOI IORI OR TOR IAIN IA IAISAISSISIISISISSSS IAS 
TEST 14 TEST THAT Y POSITION BITS 10 & 11 WILL SET & RESET VIA OFFSET INSTR 
DUIS SISO OI ISIC ISIS IISIISIOIUIOISISIOISIIIIIOIIOIOIIOI IOI IOOIOI IOI TOI TOI TOT TOT Ta TI TE TE IE 
TST14: 
#14 ,$TESTN 7zSET TEST NUMBER IN APT MAIL BOX 
#1$,SLPERR SET UP SCOPE ADRS 
7SET UP REG 16 AD 
ZEXPECT BOTH BITS. INITIALLY 
;GET INSTR ADRS POINTER 


#16000,(RO)+ 3S 
#114000, (RO)+ LOAD POINT INSTR 
(RO) + *X OF 0 


(RO) + sY OF O 
#172000, (RO) ;LOAD STOP INSTR 
@YDOF F :CLR OFFSET REG 
PC EXECUTE 60 START DISPLAY 
@YDOFF ,S$BDDAT TREAD REG 16 
EEpent paneer ARE ig! CORRECT? 


10 SOFFSET INSTR FAILED TO LOAD HIGH ORDER Y POSITION BITS 
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CZVSBB.P11—-: 10-SEP-79 11:32 T14 TEST THAT Y POSITION BITS 10 & 11 WILL SET & RESET VIA OFFSET INSTR SEQ 0029 
682 004772 162737 012000 001124 2%: SUB #12000,$GDDAT ;SET UP FOR NEXT VALUE 
683 006000 162737 002000 032532 SUB #2000,BUFFER+2 :SET UP NEXT VALUE 
684 005006 022737 006000 032532 c #6000.BUFFER+2 ALL VALUES TESTED? 
685 005014 001352 BNE 1$ ‘BR IF NOT 
687 FERRER REE RRR ER EERE EERE KERR EERE ERE REE 
(3) s*TEST 15 TEST X AND Y POS BITS 10-13 (+ DIR) USING THE POINT & OFFSET INSTRS 
(3) MSBAeASBSAAA£LA£L£A2 RASS ES ESSA S ES SLES ES ASSES RRS ERR RR ERR RARER RES SES SS 
(2) 005016 000004 T8115: SCOPE 
(2) 005020 012737 000015 001202 MOV #15, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
688 005026 012700 032530 MOV #BUF FER, RO “GET ADRS WHERE INSTR'S GO 
689 005032 012720 116000 MOV #116000, (RO)+ iOFFSET INSTR 
690 005036 012720 011000 MOV #11000, (RO) + X OFFSET OF 1000 
691 005042 012720 017000 MOV #17000, (RO)+ y OFFSET OF 7000 
692 005046 012720 116000 MOV #116000, (RO)+  :POINT INSTR 
693 005052 012720 001000 MOV #1000, (RO) + +X=1000 
694 005056 012720 007000 MOV (RO) + *¥=7000 
695 005062 012720 172000 MOV #192060" (RO)+ STOP INSTR 
69% 005066 012700 010000 MOV #10000,RO [LD EXPECTED X POS 
697 005072 012701 070000 MOV #70000.R1 SLD EXPECTED Y POS 
698 005076 012737 005104 001110 - MOV #1$,$LPERR ‘SET UP SCOPE LOOP ADRS 
(1) 005104 004737 024524 JSR PC, EXECUTE START DISPLAY AND WAIT FOR STOP FLAG 
700 005110 013737 001774 001122 MOV XDOFF , _— ;SET UP REG ADRS 14 
701 005116 010037 001124 MOV RO, $GDDAT ‘LD EXPECTED 
702 005122 017737 174646 001126 MOV @XDOFF ,$BDDAT :READ HI X POS BITS 
703 005130 042737 007777 001126 BIC #7777,$BDDAT_ GET _RID OF OFFSET 
704 005136 023737 001124 001126 CMP S$GDDAT , $8DDAT : CORRECT? 
705 005144 001401 BEQ 2$ [BR IF SO 
706 005146 104010 ERROR 10 :X POS BITS ron FAILED ON POINT/OFF SET 
707 005150 013737 001776 001122 28: MOV YDOFF, SBDADR [SET UP REG ADRS 16 
708 005156 010137 00112 MOV R1,$GDDAT [LD EXPECTED 
709 005162 017737 174610 001126 MOV @YDOFF,$BDDAT :READ HI Y POS BITS 
710 005170 042737 007777 001126 BIC #7777, $BDDAT = :GET RID ,OF OFFSET 
711 005176 023737 001124 001126 CMP S$GDDAT , SBDDAT ; CORRECT? 
712 005204 001401 BEQ 3$ BR I IF § 
713 104010 ERROR 10 Z § 30-13 a ON POINT/OFFSET 
714 005210 062737 001000 032532 38: ADD #1000,BUFFER+2 ‘INCREASE X POINT 
715 005216 062737 001000 032540 ADD #1000.BUFFER+10 : INCREASE X OFFSET 
716 005224 162737 001000 032534 SUB #1000;BUFFER+4 DECREASE Y POINT 
717 005232 162737 001000 032542 SUB #1000.BUFFER+12 :DECREASE Y OFFSET 
718 005240 700 010000 ADD #10000,R0 [UPDATE EXPECTED x 
719 005244 162701 010000 SUB #10000; {UPDATE EXPECTED 
720 005250 001315 BNE 1$ ‘BR IF NOT DONE WITH 7 CALCULATIONS 
722 FLARE AREER ARERR ERE AREER ERREAEAAEREREEARAERREREE EERE 
(3) SeTEST 16 TEST ALL POLARITY COMBINATIONS FOR X & Y DELTA AND X & Y OFFSET 
(3) MOARBBBASBAALASZLLALLALLE SEALE SESE SEER REET RCRA R RRS RRR RRR RRR RRR RRA S| 
(2) 005252 000004 T8116: SCOPE 
(2) 005254 012737 000016 001202 MOV #16, $TESTN SET TEST NUMBER IN APT MAIL BOX 
723 ;USE POINT INSTR FIRST THEN nen ace POIN 
724 ‘INSTR WITH ABSOLUTE VECTOR INSTR 
725 005262 012700 032530 MOV #BUFFER,RO :SET UP ADRS WHERE INSTRS GO 
726 005266 012720 116000 MOV #116000, (RO)+ SOF FSET INSTR 
727 005272 012720 010001 MOV #10001, (RO) + X OFFSET OF 1 
728 005276 012720 010003 MOV #10003, (RO)+ y OF FSET of 3 


E 
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CZ7VSBB.P11 10-SEP-79 11:32 T16 TEST ALL POLARITY COMBINATIONS FOR X & Y DELTA AND X & Y OFFSET SEQ 0030 
729 005302 012720 116000 MOV #°16000,(RO)+ ;POINT INSTR 
730 005306 012720 000002 MOV #2,(RO)+ 7X=2 
731 005312 012720 000004 MOV #4, (RO)+ sY=4 
732 005316 012720 172000 MOV #172000,(RO)+ ;STOP INSTR 
733 005322 012737 005332 001110 MOV #1$,$LPERR ;SET UP SCOPE _OOP ADRS 
he OOS 005003 : 13 CLR R3 3R3 WILL CONTROL POLARITY OF ALL X & Y DATA 
(1) 005332 004737 024524 JSR PC EXECUTE START DISPLAY AND WAIT FOR STOP FLAG 
736 005336 013737 001764 001122 MOV XPOS , SBDADR + id ER' : AT REG 02 
737 005344 013700 032540 MOV BUF FER+10,R0 :GET X POIN 
738 005350 013701 032532 MOV BUF FER+2,R1 GET x OFFSET 
739 005354 004737 025064 JSR PC,CALPT GO COMPUTE 14 BIT POS 
740 005360 017737 174400 001126 MOV @XPOS . $BDDAT ;READ X POS 
741 005366 017705 174402 MOV @XDOFF , R5 ;READ X OFFSET 
742 005372 004737 025136 JSR PC ,POC ONV 3GO MAKE _” 14 BIT POS 
74% 005376 023737 001124 001126 CMP SGDDAT - SBDDAT ; CORRECT? 
744 005404 001401 BEQ 2$ ‘BR IF 0) 
745 005406 104042 ERROR 42 :POINT FAILED AT DELTA X & OFFSET X IN BUFFER+2 & +10 
746 005410 013737 001766 001122 2%: MOV YPOS , SBDADR ;REPORT ER'S AT REG 04 
747 005416 013700 032542 MOV BUFFER+12,R0 3;GET Y POINT 
748 005422 013701 032534 MOV BUFFER+4,R1 ;GET Y OFFSET 
749 005426 004737 025064 JSR PC,CALPT :GO wet 14 BIT POS 
750 005432 017737 174330 001126 MOV @YPOS , SBDDAT sREAD Y + 
751 005440 017705 174332 MOV @YDOFF .RS ;READ Y HI PO 
752 005444 004737 025136 JSR PC ,POCONV ;GO MAKE uP a BIT POS 
753 005450 023737 001124 001126 CMP SGDDAT , SBDDAT ; CORRECT? 
754 005456 001401 BEQ 3$ 'BR IF SO 
755 005460 104042 ERROR 42 :POINT FAILED AT DELTA Y & OFFSET Y IN BUFFER+4 & +12 
756 005462 005203 3$: INC R3 ‘BUMP POLARITY CONTROL 
757 005464 022703 000020 CMP #20,R3 :DONE 16 POSIBILITIES? 
758 005470 001445 BEQ 9$ ;SEE IF ABS VECTOR WAS TESTED 
759 005472 042737 020000 032532 4$: BIC #BIT13,BUFFER+2 ;RESET X POL OFFSET 
760 005500 032703 000001 BIT #B1TO,R3 ;WANT -POL X OFFSET? 
761 005504 001403 BEQ 5$ ‘BR IF NOT 
762 005506 052737 020000 032532 BIS #B1T13,BUFFER+2 ;SET -POL X OFFSET 
763 005514 042737 020000 032534 5$: BIC #B1T13,BUFFER+4 RESET Y POL OFFSET 
764 005522 032703 000002 BIT #BIT1,R3 T -POL Y OFFSET? 
765 005526 001403 BEQ 6$ ony IF NOT 
766 005530 052737 020000 032534 BIS #B11T13,BUFFER+4 :SET -POL Y OFFSET 
767 005536 042737 020000 032540 6$: BIC #81713, BUFFER+10 sRESET X POL 
768 005544 032703 000004 BIT #BIT2,.R3 ;WANT -POL X? 
769 005550 001403 BEQ 7$ ;BR IF NOT 
7,0 005552 052737 020000 032540 BIS #81113, BUFFER+10 sSET -POL xX 
771 005560 042737 020000 032542 /7$: BIC #81T13,BUFFER+12 sRESET POL Y 
772 005566 032703 000010 BIT #B1T3.R3 ; WANT -POL Y? 
773 005572 001403 BEQ 8 ;BR IF NOT 
774 005574 052737 020000 032542 BIS #B1T13,BUFFER+12 3SET -POL xX 
775 005602 000653 8$: BR 1$ REPEAT TEST 
776 005604 022737 146000 032536 9$: CMP #146000, BUFFER+6 ;JUST DO ABS VEC? 
777 005612 001405 ; BEQ TST17 ; NEXT TEST IF SO 
778 005614 012737 146000 032536 MOV #146000 , BUF FER+ 6° ;NOW SET UP ASB VEC INSTR 
779 005622 005003 CLR R3 RESET POLARITY CONTROL 
77 005624 000722 BR 4$ SREPEAT TEST WITH ABS VEC 
782 SRR ERRRE REAR ARAERA ERA ERE AERA RATER AER ERA RRR ee 


(3) S*TEST 17 TEST THAT RESET WILL CLEAR X & Y POS BITS 10-13 


CZ7VSBB =~ VS60 pS TEST 


CZ2VSB8.P11 10=SEP 


013720 
012720 
004737 


017737 
023737 
001404 
013737 
104016 
017737 
023737 
001404 
013737 
104016 


E 
11:32 


024524 
174052 
001774 
174034 
001776 


024524 


173704 
001124 


001764 
173660 
001124 
001766 


001166 
001202 


001126 
001122 
001126 
001122 


001126 
001126 


001122 
001126 
001126 
001122 
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17=SEP-79" 08:46 PAGE 9- 


5 RARER AREER ARAE EERE RARAAERERR TERRA RREREEHE REREAD 


TST17: 


#40, $TIMES 
#17, $TESTN 
BUFFER 


SGDDAT 

PC EXECUTE 
acim 
XDOFF , $BDADR 
@YDOFF , S$BDDAT 
TST20 
YDOF F , SBDADR 
32 


+ #D0 40 ITERATIONS 
;SET TEST NUMBER IN APT MAIL BOX 
;SET UP ADRS FOR INSTRS 
ET UP OFFSET INSTR 
OFFSET 


OF FSET 
T 


ET UP — INSTR 
7X POIN 


3S 
ix 
z¥ 
3S 
:Y POIN 

:SET_UP "Walt INSTR 
ZEXPECT ZERO 
START 


sCLR X + Y POS 
‘DID ;"s CLR? 


:BR so 
:SET UP _REG A 
HI ORDER X POS pits FAILED TO CLEAR 
“DID IT CLR? 
:;NEXT TEST IF SO 
SET UP REG ADRS 16 
SHI ORDER Y POS BITS FAILED TO CLEAR” 


J TARR ERE EERE EERE EERE EERE EEE ERE EERE RERERAEREKEEKKEEERE REE 


TEST THAT LONG VECTOR MODE INCREMENT X AND Y AXIS COUNT 1-1777 


5 ERE ERR RARER AEEHEKEEREEEEEKKEKRKEEREE 


i*TEST 20 
TST20: 


#100, $TIMES 
#20, $TESTN 
#2$ SLPERR 
#1777,R 


DBUF ,RO 
#116000, (0)+ 
(0)+ 


(0) + 

#110000, (0)+ 
SGDDAT, (0)+ 
SGDDAT, (0)+ 
#172000, (RO)+ 
PC EXECUTE 


@aXPOS , $BDDAT 
on nee 


$ 
XPOS , SBDADR 
16 
@YPOS , $BDDAT 
+ nt emamasied 
YPOS , S$BDADR 
16 


:2D0 100 ITERATIONS 
;SET TEST NUMBER IN APT MAIL BOX 
:SET UP SCOPE LOOP ADRS 
;SET UP A COUNTER 
:PRESET THE COMPARED VALUE 
;SET UP_RO 


IS 
sLOAD “LONG VECTOR MODE"’ 
SPRESET ‘DELTA X AXIS'' 
sPRESET “DELTA Y AXIS"’ 
[LOAD ‘DISPLAY STOP"’ 


START DISPLAY AND WAIT FOR STOP FLAG 


READ X POS 
ZARE . THEY EQUAL ? 


E 
*SET UP REG ADRS 04 
“NO, LONG VECTOR MODE FAILED 
:READ Y POS 
* COMPARE 
*SET UP REG ADRS 06 
“NO, INCREMENT Y AXIS VIA 


SEQ 0031 





-P11 


006130 
006134 
006136 


005237 
005303 
001326 


012720 
004737 


017737 
023737 
001404 
013737 
104017 


017737 
023737 
00 


-- VS60 eco ta ta TEST 
10-SEP-79 11:32 


001124 


172000 
024524 


173522 
001124 


001764 
173476 
001124 
001766 


001124 


PART I] 


001166 
001202 
001110 


001124 


001126 
001126 


001122 
001126 
001126 
001122 


001202 


G 
MACY11 30G(1063)_ 17=SEP=79 08:46 PAGE 9-9 
T20 TEST THAT LONG VECTOR MODE INCREMENT X AND Y AXIS COUNT 1-1777 


4$: INC $GDDAT : INCREMENT EXPECTED VALUE 
DEC R3 :F INI SHED? 
BNE 1$ S3NO, TEST MORE DATA 
FDRG IOI I ISIIOISIOI ISIS IOIOIOIUIOIOISIOI IDIOTS TSI TT TE TEFL TE TET I ETE ED EEE 
i*TEST 21 TEST THAT LONG VECTOR MODE DECREMENTS X AND Y AXIS COUNT 1-1777 


5 RARER ARERR REE ERR EREKERER EEE ERRARERRERKER ARERR REE 


TST21: SCOPE 
MOV #100, $TIMES 3:D0_100 ITERATIONS 
MOV #21, $TESTN ;;SET TEST NUMBER IN APT MAIL BOX 
MOV #2$,,$LPERR SET UP SCOPE LOOP ADRS 
#2000.R3 SET UP A COUNTER 
MOV #1777 ,SGDDAT PRESET THE COMPARED VALUE 
MOV #20001 ,R5 


1$: MOV DBUF ,R :SET UP RO 
MOV #116000,(0)+ § :LOAD POINT MODE" ' 
CLR (0)+ SCLEAR X AXIS 
CLR - (O)+ *CLEAR Y AXIS 
MOV #110000,(0)+ | :LOAD "LONG VECTOR MODE"' 
MOV R5,(0)+ ‘PRESET "DELTA X AXIS'' 
MOV R5.(0)+ ZPRESET ‘DELTA Y AXIS‘ 
ss MOV #172000, (RO)+  =PRESET ‘DISPLAY STOP’' 
JSR PC EXECUTE :START DISPLAY AND WAIT FOR STOP FLAG 
MOV @XPOS,$BDDAT READ X AXIS 
CMP SGDDAT,SBDDAT ARE THEY EQUAL? 
BEQ 3$ “YES 
MOV XPOS, SBDADR [SET UP REG ADRS 04 
ERROR 17 [NO, DECREMENT X AXIS VIA 
3$: MOV @YPOS,$BDDAT READ Y AXIS 
CMP SGDDAT , SBDDAT iARE THEY EQUAL? 
MOV YPOS , $BDADR [SET UP REG ADRS 06 
ERROR 17 ‘NO, DECREMENT Y AXIS VIA 
4$: INC RS s INCREMENT ‘DELTA X~Y"' 
DEC $GDDAT :DECREMENT EXPECTED VALUE 
DEC R3 F INI SHED? 
BNE 1$ ::NO. TEST MORE DATA 
PERERA RARER REE EEEEREEREEEEEEREEREEERERREERERREREEREERER EEE 
S*TEST 22 TEST LONG VECTOR FOR ALL VALUES OF SCALE 
DL RARER REE RE REREREEEE REE EKER REE ERE KE REE 


TST22: SCOPE 
MOV #22, $TESTN 3;SET TEST NUMBER IN APT MAI. BOX 
MOV #BUF FERRO GET 1ST ADRS WHERE INTRS' GO 
MOV #154024,(RO)+  ;SCALE OF UNITY 
MOV een. ave POINT INSTR 
+ 


CLR +X = 0 

CLR (RO)+ sv¥ =0 

MOV #154021, (RO)+ :SCALE TO BE UPDATED 
MOV oi haere (RO) + ;LONG VECTOR INSTR 
MOV #100, (RO)+ :x = 100 

MOV 4200. (RQ)+ 7¥ = 200 


SEQ 0032 


CZ7VSBB == VS60 Nag Dn 3A TEST PART II MACY11 30G6(1063) 17-SEP-79" 08:46 PAGE 9-10 


C2VSBB.P11. «10-SEP-79 11:32 T22 TEST LONG VECTOR FOR ALL VALUES OF SCALE SEQ 0033 
875 006374 012710 172000 MOV #172000,(RO)  ;STOP INSTR 
876 006400 012737 000001 001164 MOV #1,$TMPO ‘SET UP SCALE FOR ER TYPE 
877 006406 012701 000020 MOV #20,R1 “SET UP X EXPECTED DATA 
878 006412 012702 000040 MOV #40.R2 “SET UP Y EXPECTED DATA 
879 006416 012737 006424 001110 MOV #1$.$LPERR ‘SET UP SCOPE LOOP ADRS 
BB0 006424 004737 024524 1$: JSR PC EXECUTE “START DISPLAY 
881 006430 013737 001764 001122 MOV XPOS , SBDADR 'SET UP REG ADRS 04 
B82 006436 010137 001124 MOV R1,$GDDAT ‘LD EXPECTED 
BBS 006442 012737 000100 001162 MOV #100, $REGO “SET UP X VECTOR FOR ER TYPE 
B84 006450 017737 173310 001126 MOV @xPO0S,$BDDAT § :READ X POS REG 
B85 006456 023737 001124 001126 CMP $GDDAT , SBDDAT ; CORRECT? 
886 006464 001401 BEQ 2$ IF SO 
887 006466 104011 ERROR 11 <X VECTOR POS FAILED TO SCALE 
888 006470 013737 001766 001122 28: MOV YPOS , $BDADR ‘SET UP REG ADRS 06 
889 006476 010237 001124 MOV R2,$GDDAT 3LD EXPECTED 
890 006502 012737 000200 001162 MOV #200, $REGO “SET UP Y VECTOR FOR ER TYPE 
891 006510 017737 173252 001126 MOV @YPOS,$BDDAT §§:READ Y POS REG 
892 006516 023737 001124 001126 CMP SGDDAT,$B8DDAT :CORRECT? 
893 006524 001401 BEQ 3$ ‘BR IF SO 
894 006526 104071 ERROR 11 *Y VECTOR POS FAILED TO SCALE 
895 006530 005237 001164 3$: INC $TMPO SADVANCE SCALE BY 1/4 
896 006534 022737 000020 001164 CMP #20,$TMPO TALL SCALES TESTED? 
897 006542 001407 BEQ TST23 ‘NEXT TEST IF SO 
898 006544 005237 032540 INC BUF FER+10 ‘BUMP SCALE BY 1/4 AT INSTR 0c 
B99 006550 062701 000020 ADD #20,R1 “BUMP EXPECTED X POS BY 1/ 
900 006554 062702 000040 ADD #40.R2 “BUMP EXPECTED Y POS BY We 
901 006560 000721 BR 1$ ‘TRY NEXT SCALE 
903 RE ERE EERE EEEREREKARERE 
(3) TRTEST 23 TEST THAT X AND Y AXIS INCREMENT PROPERLY USING SHORT VECTOR MODE COUNT 
(3) EKER ERE EERE 
(2) 006562 000004 18123: SCOPE 
(1) 006564 012737 000200 001166 MOV #200,$TIMES ; :D0_200_ITERATIONS 
(2) 006572 012737 000023 001202 MOV #23, $TESIN ‘SET TEST NUMBER IN APT MAIL BOX 
904 006600 012737 006656 001110 MOV #2$.$LPERR :SET UP SCOPE LOOP ADRS 
905 006606 012703 000077 MOV #77_.R3 “SET UP A COUNT LOCATION 
906 006612 012737 000001 001124 MOV #1,$GDDAT ;SET UP THE COMPARED LOCATION 
907 006620 012704 000201 MOV #201,R4 ‘SET UP ‘DELTA X-Y' 
908 006624 013700 001712 1$: MOV DBUF .RO ‘SET UP RO 
909 006630 012720 154024 MOV #154024, (0)+ ;SCALE, OF UNITY 
910 006634 012720 116000 MOV #116000.(0)+ | :LOAD ‘'SET POINT DATA MODE"' 
911 006640 005020 CLR (0)+ :CLEAR X AX AXIS 
912 006642 005020 CLR (0)+ iCLEAR, ¥ AXIS 
913 006644 012720 106000 MOV #106000, (0)+ OAD "'SET SHORT VECTOR MODE'' 
914 006650 010420 MOV R4,(0)+ :BRESET “DELTA X AND DELTA Y"' 
g15 006652 012720 172000 - MOV #172000,(RO)+ LOAD DISPLAY STOP 
iN) 006656 004737 024524 JSR PC, EXECUTE ;START DISPLAY AND WAIT FOR STOP FLAG 
918 006662 017737 173076 001126 MOV @XPOS,SADDAT §; READ X POSITION 
919 006670 023737 (01124 001126 CMP SGDDAT,SBDDAT ARE THEY EQUAL 
920 006676 001404 BEQ 3$ = YES 
921 006700 013737 001764 001122 MOV XPOS , SBDADR ‘SET UP REG ADRS 04 
922 006706 104016 ERROR 16 ‘INCREMENT X AXIS FAILED USING 


924 006710 013737 001766 001122 3$: MOV YPOS , $BDADR 7SET UP REG ADRS 06 


I 
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CZ7VSBB.P11 10-SEP-79 11:32 123 TEST THAT X AND Y AXIS INCREMENT PROPERLY USING SHORT VECTOR MODE COUNT 0 SEQ 0034 


017737 173044 001126 aYPOS , $BDDAT ;READ_Y POSITION 
001124 001126 aid iar zARE THEY EQUAL ? 


7 YES 
16 : INCREMENT Y AXIS FAILED USING 


000201 : #201,R4 sADD DELTA X-Y 

001124 $GDDAT Fyn aa EXPECTED VALUE 
R3 :DECREMENT COUNT, tet 
1$ 33NO, TEST MORE DAT 


DDI OO IIIS ICICI IOIOIOIOIOIOIOIOIOIOIIOIOI IOI OT TOT TE TE TTT TEE TEI ETE ET IE 
i*TEST 24 TEST THAT X AND Y AXIS DECREMENT PROPERLY USING SHORT VECTOR MODE COUNT 
SUIRS SISOS ISIC SIOIOIIIOISIOIOIOIDIOIOIOIOIDIOIIOOOI IO IOI I TST TTT TIE TE TTS OTE TIE 
TST24: 
001166 MO #200, $TIMES ;2D0 7. Vopliae, 
#24, $TESTN 2 eSET T NUMBER IN APT MAIL BOX 
#2$,$LPERR SET uP SCOPE LOOP ADRS 
#77 R :SET UP A COUNT LOCATION 
001124 #1777, SGDDAT ;SET UP THE COMPARED LOCATION 
#20301 ,R4 seeesel THE ‘DELTA X-Y' 


DBUF ,RO ;SET UP RO 
#116000, (0)+ : LOAD "SET POINT DATA MODE"’ 
(0)+ AR X AXIS 


(0)+ CLEAR Y AXIS 

#106000,(0)+ LOAD ‘'SET SHORT VECTOR MODE"' 
010420 R4, (0)+ ‘PRESET "DELTA X AND DELTA Y'" 
012720 r #172000,(RO)+ LOAD DISPLAY STOP 


004737 024524 PC EXECUTE :START DISPLAY AND WAIT FOR STOP FLAG 


017737 172712 001126 aXPOS , SBDDAT READ X POSITION 
th 001124 001126 | en ARE THEY EQUAL 


:YES 
013737 001764 001122 MOV XPOS , SBDADR SET UP REG ADRS 04 
104017 17 ;DECREMENT X AXIS FAILED USING 


017737 172666 001126 : @YPOS , SBDDAT READ Y POSITION 
001124 001126 $SGDDAT,$BDDAT ;ARE THEY EQUAL ? 
4$ YES DECREMENT 
001766 001122 MOV YPOS , SBDADR SET UP REG ADRS 06 
17 :DECREMENT Y AXIS FAILED USING 


000201 : #201 ,R4 zADD ‘DELTA X-Y"" 

001124 SGDDAT :DECREMENT EXPECTED VALUE 
R3 ;DECREMENT COUNT, FINISHED? 
1$ :zNO, TEST MCRE DATA 


LL AAR REE REE EEREEREREEKEERERERAERREREREEEEEREKKKEE EEE 
i*TEST 25 TEST SHORT VECTOR AT ORIGIN 1000/1000 FOR ALL VALUES OF SCALE 
J FARRAR EAE EAE AEE EERE EEE 
TST25: 
001202 #25, STESTN :7SET TEST apeen IN APT MAIL BOX 
#BUF F ;GET 1ST ADRS WHERE INSTR'S GO 
riee00G. (RO)+ :°LD STATUS C'' (SCALE OF UNITY) 
116000 #116000, (RO) + *POINT INSTR 
012720 #1000, (RO) + 7x = 1000 
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C2VSBB.P11 10-SEP-79 11:32 T25 TEST SHORT VECTOR AT ORIGIN 1000/1000 FOR ALL VALUES OF SCALE SEQ 0035 


012720 001000 #1000, (RO) + 1000 
#14021. (RO)+ MD STATUS C’' (SCALE TO BE UPDATED) 
SHORT VECTOR INSTR 
ixX=108/Y - IN MINUS DIRECTION 
[LD STOP INSTR 
7SET UP X EXPECTED DATA 
7SET UP Y EXPECTED DATA 
001164 SET UP SCALE FOR ER TYPE 


001110 
PC, EXECUTE 
001122 XPOS , SBDADR 
R1, $GDDAT 


CTED 
000010 001162 #10,$REGO [SET UP VECTOR LENGTH FOR ER TYPE 
172476 001126 @XPOS,$BDDAT § :READ X POS REG 

001124 001126 SGDDAT  SBDDAT CORRECT? 


:BR IF SO 
11 VECTOR POS FAILED TO SCALE 
001766 001122 2: MO YPOS , $BDADR ‘SET UP REG ADRS 06 
001124 R2,$GDDAT ‘LD EXPECTED 
000004 001162 #4, $REGO ‘SET UP VECTOR LENGTH FOR ER TYPE 
172440 001126 @YPOS,$B8DDAT  :READ Y POS REG 
001124 001126 $GDDAT,$BDDAT CORRECT? 
3$ :BR IF SO 
11 *Y VECTOR POS FAILED TO SCALE 
001164 : $TMPO SADVANCE SCALE BY 1/4 
000020 001164 #20,$TMPO TALL SCALES TESTED? 
TST26 ::NEXT TEST IF SO 
032540 BUF FER+10 SADVANCE SCALE BY 1/4 AT ISTR LOC. 
000002 #2,R1 ;DECREASE EXPECTED X POS BY 1/4 
R2 “DECREASE EXPECTED Y POS BY 1/4 
1$ ‘TRY NEXT SCALE 


JL AAR EERE EERE EKER EERE EERE EERE EEKEREEEEEEERERREEEE 


:*TEST 26 TEST THAT X AND Y AXIS INCREMENT PROPERLY USING RELATIVE POINT MODE COUN 


MASSA AASASAARASASASALAAASALSEALES ELSES SEARS A RAT RAR SRA SESSA ASS SO 


78126: 
#200, $TIMES 7:D0 200. ITERATIONS 
#26,$TESTN i iSET T NUMBER IN apt MAIL BOX 
#2$.$LPERR SET AY SCOPE LOOP ADRS 
#77.R3 :SET UP A COUNT LOCATION 
#1, $GDDAT :SET UP THE COMPARED LOCATION 
#201 .R& :SET 1 DELTA 


DBUF .RO 
#154024, (0)+ SCALE, OF UNITY . 
#116000. (0)+ ‘SET POINT DATA MODE 
(0)+ cP EAR x AXIS 
(0)+ CLEAR, ¥ AXIS 
#130000, (0)+ OAD "'SET RE LATIVE, POINT MODE" 
010420 (0)+ ZPRESET DELTA X AND DELTA 
012720 #179000, (RO)+ LOAD DISPLAY STOP 


004737 024524 ; PC EXECUTE :START DISPLAY AND WAIT FOR STOP FLAG 


017737 172266 00112 @XPOS , SBDDAT READ X POSITION 
SSE 001124 scpDAr, -SBDDAT ;ARE THEY EQUAL 


“3 J — et od 3 = - dd 


Ooooon~coo0[0coo 


' 


SS SM Ss SS St 
SOON Y~OUSWN—O 
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C2VSBB.P11—-10=SEP=79 11:32 126 TEST THAT X AND Y AXIS INCREMENT PROPERLY USING RELATIVE POINT MODE COUNT SEQ 0036 

1021 007510 013737 001764 001122 MOV XPOS , $BDADR :SET UP REG ADRS 04 

10g 007516 104016 ERROR 16 S INCREMENT X AXIS FAILED USING 

1024 007520 017737 172242 001126 38: MOV @YPOS,$BDDAT —;READ Y POSITION 

1025 007526 023737 001124 001126 CMP $GDDAT,$BDDAT ARE THEY EQUAL ? 

1026 007534 001404 BEQ 4$ YES 

1027 007536 013737 001766 001122 MOV YPOS , $BDADR SSET UP REG ADRS 06 

1028 007544 104016 ERROR 16 s INCREMENT Y ait FAILED USING 

1030 007546 062704 000201 4$: ADD #201,R4 ZADD DELTA X-Y 

1031 007552 005237 001124 INC $GDDAT ‘INCREMENT EXPECTED VALUE 

1032 007556 005303 DEC R3 ‘DECREMENT COUNT, FINISHED? 

1033 007560 001325 BNE 1$ ‘:NO, TEST MORE DATA 

1035 FARRER EERE ERE EKER EERE KEE REE EERE EERE REE REREKEEEKKEK EH 
(3) STEST 27 TEST THAT X AND Y AXIS DECREMENT PROPERLY USING RELATIVE POINT MODE COUN 
(3) MASA SAAA£2A£ SELES ESES ES ELES ESS ESSERE SESE SER ERR SS RRS RRR ER RRR SSS SG 
(2) 007562 000004 78127: SCOPE 
(1) 007564 012737 000200 001166 MOV #200, STIMES ::D0 200 ITERATIONS 
(2) 007572 012737 000027 001202 MOV #27, ::SET TEST NUMBER IN APT MAIL BOX 

1036 007600 012737 007652 001110 MOV #23. SLEERR :SET UP SCOPE LOOP ADRS 

1037 007606 012703 000077 MOV #77.R3 :SET UP A COUNT LOCATION 

1038 007612 012737 001777 001124 MOV 41779, SGDDAT SET UP THE COMPARED LOCATION 

1039 007620 012704 020301 MOV #20301 ,R4 SPRESET THE ‘DELTA X-Y' 

1040 007624 013700 001712 1$: MOV DBUF ,R ‘SET UP RO 

1041 007630 012720 116000 MOV #116000,(0)+  =LOAD Ui sET POINT DATA MODE"' 

1042 007634 005020 CLR (0)+ *CLEAR x AXIS 

1043 007636 005020 CLR (0)+ CLEAR Y AXIS 

1044 007640 012720 130000 MOV #130000,(0)+ [LOAD "'SET RELATIVE POINT MODE"’ 

1045 007644 010420 MOV R4, (0)+ :PRESET ‘DELTA X AND DELTA Y 

1046 007666 012720 172000 = MOV #172000,(RO)+ LOAD DISPLAY STOP 

teen 007652 004737 024524 , JSR PC, EXECUTE :START DISPLAY AND WAIT FOR STOP FLAG 

1049 007656 017737 172102 001126 MOV @XPOS,$BDDAT =; READ X POSITION 

1050 007664 023737 001124 001126 CMP SGDDAT,SBDDAT :ARE THEY EQUAL 

1051 007672 001404 BEQ 3$ YES 

1052 007674 013737 001764 001122 MOV XPOS , SBDADR TSET UP REG ADRS 04 

1053 007702 104017 ERROR 17 :DECREMENT X AXIS FAILED USING 

1055 007704 017737 172056 001126 3$: MOV @YPOS,$BDDAT — ;READ Y POSITION 

1056 007712 023737 001124 001126 CMP $GDDAT,$BDDAT :ARE THEY EQUAL ? 

1057 007720 001404 BEQ 4$ [YES DECREMENT 

1058 007722 013737 001766 001122 MOV YPOS , $BDADR [SET UP REG ADRS 06 

1059 007730 104017 ! ERROR 17 :DECREMENT Y AXIS FAILED USING 

1061 007732 062704 000201 4$: ADD #201,R4 zADD "DELTA X-Y"' 

1062 007736 005337 001124 DEC $GDDAT *DECREMENT EXPECTED VALUE 

1063 007742 005303 DEC R3 [DECREMENT COUNT, FINISHED? 

1064 007744 001327 BNE 1$ +:NO, TEST MORE DATA 

1066 CLARA RARER ERE EERE ARERR REREEREEKEKE EE 
(3) ;*TEST 30 TEST RELATIVE POINT FOR ALL VALUES OF SCALE 
(3) 'MASBRASRASAALALZ£LAZ£LESLESSEE SEES EEE SE SESE RES ERR EERE RES SRR RRR SER REESE SE 
(2) 007746 000004 78130: SCOPE 


(2) 007750 012737 000030 001202 MOV #30, $TESTN 3:SET TEST NUMBER IN APT MAIL BOX 


8 


8 
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001164 
001110 


001122 
001162 


17=SEP-79" 08: 
TEST RELATIVE POINT FOR 


Ld 


#1010, (RO)+ 
#172000, (RO) 
#1001,R1 


PC, EXECUTE 
XPOS , SBDADR 
RI. SGDDA AT 


@XPOS , SBDDAT 
SGDDAT. SBDDAT 


11 
YPOS, re 


S$GDDAT , SBDDAT 
ii 


46 PAGE 9-14 
ALL VALUES OF SCALE 


GET 1ST ADRS WHERE INSTR'S GO 
i OLD STATUS C’’ (SCALE OF UNITY) 


Y = 1000 
:''LD STATUS C’* (SCALE TO BE UPDATED) 
RELATIVE POINT INSTR 
=48Y= Me 
[LD STOP INSTR 
SET UP X EXPECTED DATA 


ECTED 
T UP X POINT FOR ER TYPE 
READ X POS REG 
ORRECT? 
BR IF SO 
:X POINT POS FAILED TO SCALE 
3 SET eects ADRS 06 


:LD oa TED 
;SET UP Y POINT FOR ER TYPE 
;READ Y POS REG 

; CORRECT? 

:BR IF SO 

‘Y POINT POS “phy SCALE 


$TMPO 
001164 #20,$TMPO 

TST31 
032540 BUFFER+10 
000002 #2.R2 


ae 0 

sADVANCE SCALE BY 1/4 AT INSTR LOC. 
7 INCREASE EXPECTED X POS BY 1/4 

; INCREASE EXPECTED Y POS BY 1/4 
TRY NEXT SCALE 


JL ARERR REE EEE KEKE EEKEEKEEKEEKEEEEEEKEEEEEEEEEEEEERKEKEEEKKEK EE 


2 TEST 31 TEST POINT INSTR (10 BITS) FOR ALL VALUES OF SCALE 


FERRARA ERE KEK EERE EERE KEKE EERE EERE EREKEKEE 


1§131: 


SELRFRALLSSE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ee ee ee ed ed ed ed ee AR A A a td td od 
SSSKFRVSVEVSLSS 


4 Ss SS SS SS SYS os 1 1 


ad ad ad ed ad ed ed ed 
NOUSWN © 


#4, STIMES 
#31 ,$TESTN 


#BUFFER,RO 
#154020, (RO)+ 
#116000, (RO)+ 
(RO)+ 

(RO) + 
#172000, (RO)+ 
STMPO 

RO 

$REGO 

R1 

#1$,$LPERR 

PC ,MULSCL 
@XDOF F 

@YDOF F 


44+ F 4 ITERATIONS 
T TEST NUMBER IN APT MAIL BOX 
:SET UP ADRS Ms INTR'S GO 
[LD SCALE INS 
:LD _ INSTR 


2X 
7Y 


; 0 
:LD_STOP INSTR 
:SET UP SCALE 4k TYPE 


iSTART WITH 0 POI 


:PUT POINT IN ryt | FOR ER TYPE 
START WITH O SCALE 


7SET UP SCOPE 


LOOP ADRS 
:GO MUL POINT BY SCALE ~ RESULT IN S$GDDAT 
: INSURE ZERO X OFFSET 

; INSURE ZERO Y OFFSET 





CZ7VSBB == VS60 ae dba So TEST PART I] MACY11 30G(1063) 17-SEP-79. 08:46 PAGE 9-15 


CZVSBB.P11 10-SEP-79 11:32 131 TEST POINT INSTR (10 BITS) FOR ALL VALUES OF SCALE SEQ 0038 

1118 010302 73 024524 JSR PC,EXECUTE ;START DISPLAY 

1119 013737 001122 MOV XPOS , SBDADR ‘SET UP REG ADRS 04 

1120 010314 017737 171444 001126 MOV @XPOS,SBDDAT ;READ LOW ORDER X aps BITS 

1121 010322 017705 171446 MOV @XDOFF ,R5 SREAD HI ORDER X P 

1122 010326 004737 025136 JSR PC ,POCONV 3GO MAKE UP 14 BIT X POINT POS 

1123 010332 023737 001124 001126 CMP $GDDAT,$BDDAT  :CORRECT? 

1124 010340 001401 BEQ 2$ ‘BR IF SO 

1125 010342 104011 ERROR 11 :& POINT POS FAILED TO SCALE 

1126 010344 013737 001766 001122 28: MOV YPOS , $BDADR ‘SET UP REG ADRS 06 

1127, 010352 017737 171410 001126 MOV @YPOS,$BDDAT :READ LOW ORDER Y POS BITS 

1128 017705 171412 MOV @YDOFF ,RS ;READ HI ORDER Y POS BITS 

1129 025136 JSR PC ,POCONV :GO MAKE UP 14 BIT Y POINT POS 

1130 010370 023737 001124 001126 CMP $GDDAT,$BDDAT CORRECT? 

1131 010376 001401 BEQ 3$ ‘BR IF SO 

1132 010400 104011 ERROR 11 ‘Y POINT POS FAILED TO SCALE 

1133 010402 005237 001162 3$: INC $REGO [UPDATE POIN NT FOR ER TYPE 

1134 010406 005200 INC RO ;UPDATE POINT BY 1 

1135 010410 022700 002000 CMP #2000,RO ‘DONE 10 BITS THIS SCALE? 

1136 010414 001405 BEQ 5$ :BR IF SO 

1137 010416 010037 032534 4$: MOV RO,BUFFER+4 ;SET UP x POINT 

1138 010422 010037 032536 MOV RO. BUFFER+6 SET UP Y POIN 

1139 010426 000717 BR 1$ ‘REPEAT TEST SME er AT POINT +1 

1140 010430 005037 001162 5$: CLR $REGO “RESET POINT FOR ER TYPE 

1141 010434 005000 CLR RO sRESET POINT 

1142 010436 005237 001164 INC $STMPO ‘BUMP SCALE BY 1/4 

1143 010442 005237 032530 INC BUFFER ‘NOW AT INSTR LOC 

1144 010446 005201 INC R1 sNOW AT R1 

1145 010450 022701 000020 CMP #20,R1 TALL SCALES TESTED? 

1146 010454 001360 BNE 4$ SREPEAT TEST AT NEW SCALE 

1148 FRR RARER EERE EERE REE REE AEEREEREEKERREEERERERE ERE EE 
(3) TEST 32 TEST ABSOLUTE VECTOR FOR ALL VALUES OF SCALE 
(3) TPRSAPREBSSAAAASASZALALASALLASLESLE SESE ESE SES EEE ESE REE RRR RASA RAR RR ASS SS 
(2) 010456 18132: SCOPE 
(2) 010460 012737 000032 001202 MOV #32, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 

1149 010466 012700 032530 MOV #BUF FER, RO *GET 1ST ADRS WHERE INSTR'S GO 

1150 010472 012720 154024 MOV #154024.(RO)+  :SCALE OF UNITY 

1151 010476 012720 116000 MOV #116000. (RO)+ :POINT INSTR 

1152 010502 005020 CLR (RO) + <x = 0 

1153 010504 005020 CLR (RO) + t¥ = 0 

1154 010506 012720 154021 MOV #154021, (RO)+ :SCALE TO BE UPDATED 

1155 010512 012720 146000 MOV #146000.(RO)+ ABSOLUTE VECTOR INSTR 

1156 010516 012720 000400 MOV #400, (RO) + iM = 400 

1157 010522 012720 000200 MOV #200. (RO)+ = 200 

1158 010526 012710 172000 MOV #172000 (RO) ‘STOP INSTR 

1159 010532 012737 000001 001164 MOV $TmPO ‘SET UP SCALE OF ER TYPE 

1160 010540 012701 000100 MOV 4100. R1 :SET UP X EXPECTED DATA 

1161 010544 012702 000040 MOV #40,R2 ‘SET UP Y EXPECTED DATA 

1162 010550 012737 010556 001110 MOV #1$.SLPERR ‘SET UP SC 

1163 010556 004737 024524 1$: JSR PC, EXECUTE :START DISPLAY 

1164 010562 013737 001764 001122 MOV XPOS, $BDADR [SET UP REG ADRS 04 

1165 010570 010137 001124 MOV R1,$GDDAT [LD EXPECTED 

1166 010574 012737 000400 001162 MOV #400, $REGO :SET UP X VECTOR FOR ER TYPE 

1167 010602 017737 171156 001126 MOV axPOS,$BDDAT  :READ X POS REG 

1168 010610 023737 001124 001126 CMP $GDDAT.$BDDAT :CORRECT? 

1169 010616 001401 BEQ 2$ [BR IF SO 
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1170 010620 104011 ERROR 11 :X VECTOR POS FAILED TO SCALE 

1171 010622 013737 001766 001122 28: MOV YPOS , $BDADR ‘SET UP REG ADRS 06 

1172 010630 010237 001124 MOV R2,$GDDAT ‘LD EXPECTED 

1173 010634 012737 000200 001162 MOV #200 .$REGO ‘SET UP Y VECTOR FOR ER TYPE 

1174 010642 017737. 171120 001126 MOV @YPOS, SBDDAT READ Y POS REG 

1175 010650 023737 001124 001126 CMP $GDDAT , SBDDAT ORRECT? 

1176 010656 001401 BEQ 3$ ‘BR IF SO 

1177 010660 104011 ERROR 11 ‘Y VECTOR POS FAILED TO SCALE 

1178 010662 005237 001164 3$: INC $TMPO SADVANCE SCALE BY 1/4 

1179 010666 022737 000020 001164 CMP #20,$TMPO TALL SCALES TESTED? 

1180 010674 001407 BEQ TST33 ‘NEXT TEST IF SO 

1181 010676 005237 032540 INC BUFFER+10 ‘BUMP SCALE AT INSTR LOC BY 1/4 

1182 010702 062701 000100 ADD #100,R1 [BUMP EXPECTED X POS BY 1/4 

1183 010706 062702 000040 ADD #40,R2 ‘BUMP EXPECTED Y POS BY 1/4 

1184 010712 000721 BR 1$ ‘TRY NEXT SCALE 

1186 LAR A ERE E REE EREEREEREEREEEEERRE ERE KE 
(3) S*TEST 33 USE GRAPHPLOT X MODE TO TEST Y AXIS IS INCREMENTED BY ‘'GRAPHPLOT INCREME 
(3) FL RARER EEE EERE REE REE KERR EERE ERE EREEKREEERE EERE KER 
(2) 010714 000004 TST33: SCOPE 
(1) 010716 012737 000400 001186 MOV #400, $TIMES :D0 400 ITERATIONS 
(2) 010724 012737 000033 00120¢ MOV #33, $TESIN ‘SET TEST NUMBER IN APT MAIL BOX 

1187 010732 013737 001766 001122 MOV YPOS , $BDADR :SET UP REG ADRS 06 

1188 010740 012703 000077 MOV #77,R3 :SET UP EXECUTION, COUNTER 

1189 010744 012737 000001 001124 MOV #1,$GDDAT ;SET UP COMPARED D 

1190 010752 012737 174101 001726 MOV #174101, DSAVE :SET UP BASIC LOMD STATUS B 

1191 010760 013700 001712 1$: MOV :SET UP RO 

1192 010764 012720 154024 MOV w136006, (RO)+ LD STATUS C = VECTOR SCALE OF UNITY 

1193 010770 012720 116000 MOV #116000.(0)+  :LOAD ‘POINT MODE 

1194 010774 005020 CLR (0)+ *CLEAR X AXIS 

1195 010776 005020 CLR (0)+ CLEAR Y AXIS fe 

1196 011000 013720 001726 MOV DSAVE, (0)+ SLOAD ‘SET STATUS B Z 

1197 011004 012720 120000 MOV #120000, (0)+ LOAD ‘SET GRAPHPLOT X MODE 

1198 011010 005020 CLR (0)+ ‘LOAD *% GRAPHPLOT DATA 

1199 011012 012720 172000 MOV #172000, (RO)+ LOAD DISPLAY STOP 

1200 011016 004737 024524 JSR PC EXECUTE SSTART DISPLAY AND WAIT FOR STOP FLAG 

1202 011022 017737 170740 001126 MOV @YPOS,SBDDAT =; READ Y AXIS 

1203 011030 023737 001124 001126 CMP SGDDAT , $BDDAT : COMPARE TO EXPECTED VALUE 

1204 011036 001402 BEQ 2$ TARE THEY 

1205 011040 104027 ERROR 27 SGRAPHPLOT INC FAILED TO SET UP X POS REG 

1206 011042 000406 BR TST34 3: 

1207 011044 005237 001726 2$: INC DSAVE 

1208 011050 005237 001124 INC $GDDAT y INCREMENT THE STATUS B COUNT 

1209 011054 005303 DEC R3 SDECREMENT THE PEXECUTION COUNT 

1210 011056 001340 BNE 1$ +: TEST MORE DAT 

1212 SL RRR EERE EERE REE ERR R ERE R EERE ERE 
(3) S*TEST 34 USE GRAPHPLOT Y MODE TO TEST X AXIS IS INCREMENTED BY ‘'GRAPHPLOT INCREME 
(3) LEER ERE EERE ERR EERE EAE ERE RRR ER 
(2) 011060 000004 15134: SCOPE 
(1) 011062 012737 000400 001166 - MOV #400, $TIMES ;3D0_400 ITERATIONS 
(2) 011070 012737 000034 001202 MOV #34, $TESTN SET TEST NUMBER IN APT MAIL BOX 

1213 011076 013737 001764 001122 MOV XPOS, SADADR :SET UP REG ADRS 04 

1214 011104 012703 000077 MOV #77 ,R3 ‘SET UP EXECUTION COUNTER 

1215 011110 012737 000001 001124 MOV #1, $GDDAT :SET UP COMPARED DAT 
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CZ2VSBB.P11—-10=SEP=79 11:32 134 — GRAPHPLOT Y MODE TO TEST X AXIS IS INCREMENTED BY ‘'GRAPHPLOT INCREMEN SEQ 0040 
1216 011116 O1273; 174101 001726 MOV #176101,DSAVE ;SET UP BASIC "LOAD STATUS B"' 
1217 011124 013700 001712 1$: MOV ‘SET 
1218 011130 012720 116000 MOV #116000,(0)+ § =LOAD “POINT MODE"’ 
1219 011134 005020 CLR (0)+ [CLEAR X AXIS 
1220 011136 005020 CLR (0)+ [CLEAR Y AXIS 
1221 011140 013720 001726 MOV  _,DSAVE, (0) + LOAD. SET STATUS B"' 
1222 011144 012720 124000 mov /#124000,(0)+ LOAD “SET GRAPHPLOT Y MODE"’ 
1223 011150 005020 CLR '(0)+ ‘LOAD ''Y-GRAPHPLOT DATA 
1224 011152 012720 172000 MOV - #172000,(RO)+  :LOAD DISBLAY STOP 
1s? 011156 004737 024524 JSR PC, EXECUTE START DISPLAY AND WAIT FOR STOP FLAG 
Ry 
1227 011162 017737 170576 001126 MOV @XPOS,$BDDAT  ;READ X AXIS 
1228 011170 042737 176000 001126 BIC #176000, $BDDAT MASK TO BITS 0-9 
1229 011176 023737 001124 001126 CMP SGDDAT, $BDDAT s COMPARE TO EXPECTED VALUE 
1230 011204 001402 BEQ 2s + ARE THEY EQUAL? 
1231 011206 104027 ERROR 27 ;GRAPHPLOT INC FAILED TO SET UP Y POS REG 
1232 011210 000416 BR TST35 > 
1234 011212 005237 001726 2s: INC DSAVE 
1235 011216 005237 001124 INC $GDDAT ; INCREMENT THE STATUS B COUNT 
1236 011222 005303 DEC R3 :DECREMENT THE F sepia COUNT 
1237 011224 001337 BNE 1$ s TEST MORE DA 
133 
1240 011226 012737 174100 032530 MOV #174100, BUFFER 
1241 011234 012737 172000 032552 MOV #172000, BUF FER+2 
ions 011242 004737 024524 JSR PC, EXECUTE :START DISPLAY AND WAIT FOR STOP FLAG 
1244 JARRE REE KEKE EEE EERE EERE REE RERERREEERKEEKREKEEEKEEEE REE 
(3) :*TEST 35 TEST THAT GRAPHPLOT X WILL SET UP X & Y FOR ALL VALUES OF SCALE 
(3) LL AAR ERK EEE REE RE REEEEKAREREER ERE EREEEREREKEEKKK 
(2) 011246 000004 TST35: SCOPE 
(2) 011250 012737 000035 001202 MOV #35, STESTN ::SET TEST NUMBER IN APT MAIL BOX 
‘ 1245 011256 012700 032530 MOV #BUF F ER,RO :GET 1ST ADRS WHERE INSTR'S 
1246 011262 012720 154021 MOV #154021, (RO) + "LD STATUS a (VECTOR SCALE TO BE UPDATED) 
1247 011266 012720 174120 MOV #174120. (RO) + "LD STATUS B*’ (GRAPH PLOT INC OF 20) 
1248 011272 012720 116000 MOV #116000.(RO)+  :POINT INSTR 
1249 011276 005020 CLR (RO) + [x OF ZERO 
1250 011 00 CLR + *Y OF ZERO 
1251 011302 012720 120000 MOV #120000 (RO)+ ; LOT X INSTR 
1252 011306 012720 000100 MOV #100, (RO) + :X DATA OF 100 
1253 011312 012710 172000 MOV #172000, (RO)  :STOP INSTR 
1254 011316 0612701 000004 MOV :SET UP EXPECTED Y GRAPH PLOT INC VALUE 
1255 011322 012702 000020 MOV 426 'R2 *SET UP EXPECTED X GRAPH PLOT INC VALUE 
1256 011326 012737 000001 001164 MOV #1,$1MPD ;SET UP SCALE FOR ER TYPE 
1257 011334 012737 011342 001110 MOV #1$,$LPERR :SET UP SCOPE LOOP ADRS 
1258 011342 004737 024524 1$: JSR PC EXECUTE ‘START DISPLAY 
1259 011346 013737 001764 001122 MOV XPOS, $8DADR ‘SET UP REG ADRS 04 
1260 011354 010237 001124 MOV R2,$GDDAT [LD EXPECTED 
1261 011360 012737 000100 001162 MOV #100, $REGO ‘SET UP X DATA FOR ER TYPE 
1262 011366 017737 170372 001126 MOV @XPOS,$BDDAT READ X POS R 
1263 011374 042737 176000 001126 BIC #176000, $8DDAT ONLY WANT XPOS BITS 
1264 011402 023737 001124 001126 CMP $GDDAT, gacpat : CORRECT? 
1265 011410 001401 BEQ 2$ [BR IF SO 
1266 011412 104011 ERROR 11 tX GRAPHPLOT DATA FAILED TO SCALE 
1267 011414 013737 001766 001122 28: MOV YPOS , SBDADR [SET UP REG ADRS 06 
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C7VSBB.P11 10-SEP-79 11:32 135 T THAT GRAPHPLOT X WILL SET UP X & Y FOR ALL VALUES OF SCALE SEQ 0041 

1268 011422 010137 001124 mov * R1.$GDDAT ZLD EXPECTED 

1269 011426 012737 000020 001162 MOV #26, $REGO ‘SET UP Y GRAPHPLOT INC FOR ER TYPE 

1270 011434 017737 170326 001126 MOV @YPOS,$BDDAT _:READ Y POS REG 

1271 011442 023737 001124 001126 CMP $GDDAT,$BDDAT CORRECT? 

1272 011450 001401 BEQ 3$ ‘BR IF SO 

1273 011452 104011 ERROR 11 ‘Y GRAPHPLOT INC FAILED TO SCALE 

1274 011454 005237 001164 3$: INC $TMPO TADVANCE SCALE BY 1/4 

1275 011460 022737 000020 001164 CMP #20,$TMPO TALL SCALE VALUES TESTED? 

1276 011466 001407 BEQ TST 36 ¢gNEXT TEST IF SO 

1277 011470 005237 032530 INC BUFFER ANCE SCALE BY 1/4 AT INSTR LOC. 

1278 011474 062702 000020 ADD #20,R2 ‘BUMP EXPECTED X GRAPHPLOT BY 1/4 

1279 011500 062701 000004 ADD #4,R1 ‘BUMP EXPECTED Y GRAPHPLOT INC BY 1/4 

1280 011504 000716 BR 1$ ‘TRY NEXT SCALE 

1282 FRR REE RERERRERRER EERE 
(3) S*TEST 36 TEST THAT GRAPHPLOT Y WILL SET UP X & Y FOR ALL VALUES OF SCALE 
(3) LAA REEEREEEEEKEKEKEEEKEREEKEKEKE 
(2) 011506 000004 1ST36: SCOPE 
(2) 011510 012737 000036 001202 MOV #36, $TESTN ;7SET_ TEST NUMBER IN APT MAIL BOX 

1283 011516 012700 032530 MOV #BUFFER,RO ‘GET 1ST ADRS WHERE INSTR'S GO 

1284 011522 012720 154021 MOV #154021.(RO)+  :'LD STATUS C’’ (VECTOR SCALE TO BE UPDATED) 

1285 011526 012720 174120 MOV #174120.(RO’+  :"LD STATUS e (GRAPH PLOT INC OF 20) 

1286 011532 012720 116000 MOV #116000, (RO) + :POINT INSTR 

1287 011536 005020 CLR (RO)+ X OF ZERO 

1288 011540 005020 CLR (RO y OF ZERO 

1289 011542 012720 124000 MOV #154000 (RO)+  :GRAPH PLOT Y INSTR 

1290 011546 012720 000100 MOV #100, (RO) + *Y DATA OF 100 

1291 011552 012710 172000 MOV #172000, (RO) ‘STOP INSTR 

1292 011556 012701 000004 MOV :SET UP EXPECTED X GRAPH PLOT INC VALUE 

1293 011562 012702 000020 MOV #20 Re :SET UP EXPECTED Y GRAPH PLOT DAT 

1294 011566 012737 000001 001164 MOV #1,$TMPO ‘SET UP SCALE FOR ER TYPE 

1295 011574 012737 011602 001110 MOV #1$,$LPERR ‘SET UP SCOPE LOOP ADRS 

1296 011 004737 024524 1$: JSR PC EXECUTE SSTART DISPLAY 

1297 013737 001766 001122 MOV POS, $8DADR "SET up REG ADRS 06 

1298 911614 010237 001124 MOV R2,$GDDAT :LD 

1299 011 012737 000100 001162 MOV #100, $REGO T iP DATA FOR ER TYPE 

1300 011626 170134 001126 MOV @YPOS,$BDDAT  :READ Y POS 

1301 011634 023737 001124 001126 CMP SGDDAT,$B8DDAT CORRECT? 

1302 01164 BEQ [BR IF SO 

1303 011644 104011 ERROR 11 ‘Y GRAPHPLOT DATA FAILED TO SCALE 

1304 011646 013737. 001764 001122 28: MOV XPOS , SBDADR [SET UP REG ADRS 04 

1305 011654 010137 001124 MOV R1,$GDDAT [LD EXPECTED 

1306 011660 012737 000020 001162 MOV #20, $REGO :SET UP X GRAPH PLOT INC FOR ER TYPE 

1307 011666 017737 170072 001126 MOV @XPOS,$BDDAT  :READ X POS REG 

1308 011674 042737 176000 001126 BIC #176000, $BDDAT :SAVE ONLY X POS BITS 

1309 011702 023737 001124 001126 CMP SGDDAT,$8DDAT CORRECT? 

1310 011710 001401 BEQ 3$ ‘BR IF SO 

1311 011712 104011 ERROR 11 *X GRAPHPLOT INC FAILED TO SCALE 

1312 011714 005237 0011 3$: INC $TMPO SADVANCE SCALE BY 1/4 

1313 011720 022737 000020 001164 CMP #20,$TMPO TALL SCALE VALUES TESTED? 

1314 011726 001407 BEQ TST37 :;NEXT TEST IF SO 

1315 011730 005237 032530 INC BUFFER SADVANCE SCALE By 1/4 AT INSTR LOC. 

1316 011734 062702 000020 ADD #20,R2 SBUMP EXPECTED Y GRAPH PLOT BY 1/4 

1317 011740 062701 000004 ADD #4,R1 *BUMT EXPECTED X GRAPH PLOT INC BY 1/4 

1318 011744 000716 BR 1$ ‘TRY NEXT SCALE 
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1320 SLR REE ERE EERE EEE AREER EERE RRR REE KEK 
(3) :*TEST 37 TEST BASIC VECTOR (GRAPH X & Y) AT ORIGIN 1000/1000 
(3) CLARE REE REE EERE REE EERE EERE EERE EERE EKER KEE 
(2) 011746 000004 1$137: SCOPE 
(2) 011750 012737 000037 001202 MOV #37, STESTN ::SET TEST NUMBER IN APT MAIL BOX 
1321 011756 012737 012034 001110 MOV #1$. SLPERR ‘SET UP SCOPE LOOP ADRS 
1322 011764 012700 032530 MOV #BUFFER,RO :SET UP INSTR ADRS 
1323 011770 012720 174100 MOV hs (RO)+  ;SET GRAPHPLOT INC TO 0 
1324 911774 012720 154024 MOV #154024.(RO)+  :'LD STATUS C’’ (VECTOR SCALE TO UNITY) 
1325 012000 012720 116000 MOV #116000, (RO)+ :SET UP POINT INS 
1326 01 012720 001000 MOV #1000, (RO) + :X = 1000 
1327. 012010 012720 001000 MOV #1000, (RO) + “¥ = 1090 
1328 012014 012720 122000 MOV #122000, (RO)+ BASIC VECTOR INSTR (GRAPH X) 
1329 012020 - 012720 036400 MOV #36400,(RO)+ | :VECTOR LENGTH OF 400 
1330 012024 012710 172000 MOV #172000, (RO) i STOP INSTR 
1331 012030 012700 012206 MOV . #TBL2R,RO [SET UP ADRS OF EXPECTED xX & Y POS VALUES 
1332 012034 004737 024524 1$: JSR PC EXECUTE START 
1333 012040 013737 001764 001122 MOV XPOS , SBDADR SSET UP REG ADRS 04 
1334 012046 011037 001124 MOV (RO) . $GDDAT [LD EXPECTED 
1335 012052 017737 167706 0011 MOV @XP0S,$BDDAT  :READ X POS 
1336 012060 0427 76 001126 BIC #176000, $BDDAT :RID TRASH 
1337 012066 023737 001124 001126 CMP SGDDAT,$B8DDAT CORRECT? 
1338 012074 001401 BEQ 2$ :BR IF SO 
1339 012076 104030 ERROR 30 ‘BASIC VECTOR FAILED TO SET UP Xx POS 
1340 012100 013737 001766 001122 2%: MOV YPOS , SBDADR TSET UP REG ADRS 06 
1341 012106 016037 001124 MOV 2(RO),$GDDAT  :LD EXPECTED 
1342 012114 017737 167646 001126 MOV @YPOS.$BDDAT  :READ Y POS 
1343 012122 042737 176000 001126 BIC #176000, $8DDAT :RID TRASH 
1344 012130 023737 001124 001126 CMP $GDDAT.$BDDAT CORRECT? 
1345 012136 001401 BEQ 3$ ‘BR IF SO 
1346 012140 104030 ERROR 30 ‘BASIC VECTOR FAILED TO SET UP Y POS 
1347 012142 022020 3$: CMP (RO) +, (RO)+ ‘MOV ADRS PTR TO NEXT EXPECTED X & Y POS 
1348 012144 162737 004000 032544 SUB #4000.BUFFER+14 :SET UP NEXT DIRECTION 
1349 012152 100730 BPL 1$ [REPEAT TEST IF THIS DIRECTION NOT TESTED 
1350 012154 062737 004000 032542 ADD #4000,BUFFER+12 :NOW SET UP BASIC VECTOR (GRAPH Y) 
1351 012162 032737 010000 032542 BIT #10000,BUFFER+12 sHAS IT BEEN DONE ALREADY? 
1352 012170 001426 BEQ TST4O zi:NEXT TEST IF SO 
1353 012172 012737 036400 032544 MOV #36400,BUFFER+14° :RESET DIRECTION TO PATH 7 
1354 012200 012700 012206 MOV #TBL2R.RO :RESET ADRS PTR OF RESULTS 
1355 012204 000713 BR 1$ “REPEAT TEST 
1357 012206 001400 TBL2R: 1400 ZEXPECT X & Y BASIC VECTOR POS RESULTS 
1358 012210 000400 400 
1359 012212 001000 1000 
1360 012214 0004 400 
1361 012216 0004 400 
1362 012220 000400 400 
1363 012222 000400 400 
1364 012224 001000 1000 
1365 012226 000400 400 
1366 230 001400 400 
1367 012232 001000 1000 
1368 012234 001400 4 
1369 012236 001400 1400 
1370 012240 001400 1400 
1371 012242 001400 1400 
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C2VSBB.P11—-10=SEP=79 11:32 137 TEST BASIC VECTOR (GRAPH X & Y) AT ORIGIN 1000/1000 SEQ 0043 

1372 012244 001000 1000 

1374 CLARA REAR ERERERERERREARE HERE REEREKEEEREREREREERERRERERER EE 
(3) S*TEST 40 TEST BASIC VECTOR (GRAPH X & Y) AT ORIGIN 1000/1000, PATH 7 FOR ALL VALU 
(3) CIO IIIS IOIIISIIUIIUIIOIOIIUI IOI TOT TOT TOTO TOTO TOTTI TOT TOI TOI ETT TE 
(2) 012246 000004 TST40: SCOPE 
(2) 012250 012737 000060 001202 MOV #40,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 

1375 012256 012700 032530 MOV #BUF FER, RO :GET 1ST ADRS, WHERE INSTR'S 

1376 012262 012720 154024 MOV #154024.(RO)+ :'LD STATUS C’' (VECTOR SCALE OOF UNITY) 

1377 012266 012720 116000 MOV #116000, (RO)+  =POINT INSTR 

1378 012272 012720 001000 MOV #1000, (RO) + =X = 1000 

1379 012276 012720 001000 MOV #1000, (RO)+ “Y¥ = 10 

1380 012302 012720 154021 MOV #154021, (RO)+  :'LD STATUS C"’ (VECTOR. SCALE, TO BE UPDATED) 

1381 012306 012720 122000 MOV #122000. (RO)+  =BASIC VECTOR | INSTR 

1382 012312 012720 036200 MOV #36200,(RO)+ § :VECTOR LENGTH OF BOO « PAT. 7 

1383 012316 012720 172000 MOV #172000, (RO)+ STOP INS 

1384 012322 012701 001040 1$ MOV #1040,Ri :SET UP X TENPECTED DATA 

1385 326 012702 000740 MOV 4740_Ro [SET UP Y EXPECTED DATA 

138 012332 012737 001164 MOV 1,$T; ‘SET UP SCALE FOR ER TYPE 

1387 340 012737 012354 001110 MOV #2$,$LPERR ‘SET UP SCOPE LOOP ADR 

1388 012346 012737 001162 MOV #200, $REGO :SET UP VECTOR LENGTH FOR ER TYPE 

1389 012354 004737 024524 2$: JSR PC EXECUTE START DISPLAY 

1390 013737 001 001122 MOV XPOS , $BDADR [SET UP REG ADRS 04 

1391 01 010137 901124 MOV R1,$GDDAT ‘LD EXPECTED 

1392 012372 017737 167366 001126 MOV @XPOS,$BDDAT  :READ X POS REG 

1393 400 023737 001124 001126 CMP SGDDAT,SBDDAT —; CORRECT? 

1394 012406 001401 BEQ 3$ IF 

1395 012410 104011 ERROR 11 =X VECTOR POS og ig TO SCALE 

139% 012412 013737 001766 001122 38: MOV YPOS , SBDADR ‘SET UP REG ADRS 

1397 012420 010237 001124 MOV R2,$GDDAT [LD EXPECTED 

1398 012424 017737 167336 001126 MOV @YPOS,$BDDAT_ READ Y POS REG 

1399 012432 023737 001124 001126 CMP SGDDAT,$BDDAT = CORRECT? 

1400 012440 001401 BEQ 4$ [BR IF SO 

1401 012442 104011 ERROR 11 :Y VECTOR POS FAILED TO SCALE 

1402 012444 005237 001164 4$: INC $TMPO SADVANCE SCALE BY 

1403 012450 022737 000020 001164 CMP #20,$TMPO TALL SCALE VALUES TESTED? 

1404 012456 001407 BEQ 5$ :BR IF SO 

1405 012460 005237 032540 INC BUF FER+10 ZADVANCE SCALE BY 1/4 AT INSTR LOC. 

1406 012464 062701 000040 ADD #40,R1 EXPECTED X POS BY 1/4 

1407 012470 162702 000040 SUB #40.R2 : DECREASE EXPECTED Y POS BY 1/4 

1408 012474 000727 BR 2$ TRY NEXT SCALE 

1409 012476 062737 004000 032542 S$: ADD #4000,BUFFER+12 :NOW SET UP BASIC VECTOR (GRAPH Y) 

1410 012504 032737 010000 032542 BIT #10000, BUFFER+12. :HAS IT BEEN DONE ALREADY? 

1411 012512 001404 BEQ ST41 :NEXT TEST IF SO 

1412 012514 012737 154021 032540 MOV #156021 ,BUFFER+16° sRESTORE SCALE INSTR TO 1/4 

1413 012522 000677 BR 1$ :REPEAT TEST 

1415 LEAR RARE ERRERA EERE RR ER EE RE EE RAETRREREE EERE REE ER EE 
(3) T*TEST 41 TEST BASIC SHORT VECTOR AT ORIGIN 1000/1000 
(3) fF FEAR EAE AAA REREAARAEAERAAERAEEAAEAREREAAAEERAAARAE ERA EEREEHERE EH 
(2) 012524 000004 TST41: SCOPE 
(2) 012526 012737 000041 001202 MOV #41, $TESIN ::;SET TEST NUMBER IN APT MAIL BOX 

1416 012534 012700 032530 MOV #BUFFER,RO 2 SET UP INSTR ADRS PTR 

1417 012540 012720 154024 MOV #154024.(RO)*+ =D STATUS C’’ (VECTOR SCALE TO UNTIY) 

1418 012544 012720 116000 MOV #116000. (RO)+ POINT INSTR 

1419 012550 012720 001000 MOV #1000, (RO) + ‘x OF 1000 
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032542 
032542 


032542 


F 
17=SEP=79 08: 
T BASIC SHORT VECTOR 


#1000, (RO)+ 

#136000 (RO) + 
7, (RO)+ 

#1970600, (RO) + 


R1 

#TBL3R,RO 
#1$, SLPERR 
PC, EXECUTE 
XPOS, $BDADR 
(RO) , SGDDAT 


2$ 

31 

YPOS , SBDADR 

2(RO} , SGDDAT 
S,SBDDAT 


#170000 $BDDAT 
SoDDAT, , $BDDAT 


31 
(RO) +, (RO) + 
R1 


4$ 
#20. -BUFFER+12 


1 BR IF 
#37600,BUFFER+12 ;SET UP 
:RESET 


#TBL3R,R 
) 


$2000.BUFFERSI2 * 
TST42 


1$ 


46 PAGE 9-21 
AT ORIGIN 1000/1000 


:Y OF 1000 
;BASIC SHORT_VECTOR INSTR 
:LOW BYTE, ." COUNTS, PATH 7 INTITIALLY 


:STOP INSTR 

:0 = LOW BYTE, 1 = HI BYTE UNDER TEST 
7 SET UP ADRS BIR OF x & Y POS RESULTS 
+e SCOPE LOOP ADRS 


[SET UP REG ADRS 04 
; SET . EXPECTED 
;READ X POS 


$ so 

ix POS FAILED so SHORT VECTOR 
;SET UP REG ADRS 06 

:SET UP EX — 


:RID TRASH 
; CORRECT? 


BR IF SO 
:Y POS FAILED ON SHORT VECTOR 
SMOVE ADRS PTR TO NEXT EXPECTED X & Y POS 


TE 
SET UP NEXT VECTOR PATH 
ALL By NOT TESTED = LOW BYTE 


HI BYT 
PTR OF EXPECTED X x Y POS RESULTS 
R1 NON-ZERO MEANS HI BYT 
SNOW TEST HI BYTE 
;SET UP NEXT VECTOR PAT 
:;NEXT TEST IF HI BYTE TESTED ALSO 
;BR TO TEST NEXT HI BYTE DIRECTION 


; TABLE CONTAINS EXPECTED X & Y POS RESULTS FOR BASIC SHO 


'MARRERALELLSZESE SESE SEER SESE R RRR RARER RRR SARA RRR RRR AR RRA SARA SSDS OD 


SATEST 42 TEST BASIC SHORT VECTOR AT ORIGIN 1000/1000, PATH 3 FOR ALL VALUES OF SC 


—MARARERARESLERSSLSLELEREE RR RE SERRE RRR ERR RRR RRR RRR RRA RAR RRR RRR ARDS DS 


1$142: SCOPE 
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CZVSBB.P11- 10-SEP-79 11:32 T42 TEST BASIC SHORT VECTOR AT ORIGIN 1000/1000, PATH 3 FOR ALL VALUES OF SCA SEQ 0045 

(2) 013026 012737 000042 001202 MOV #42, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 

1473 013034 012700 032530 MOV #BUFFER,RO ;GET 1ST ADRS WHERE INSTR'S GO 

1474 013040 012720 154024 MOV #154024.(RO)+  :'LD STATUS C’' (VECTOR SCALE OF UNITY) 

1475 013044 012720 116000 MOV #116000.(RO)+  :POINT INSTR 

1476 013050 012720 001000 MOV #1000, (RO) + ix = 1000 

1477 013054 012720 001000 MOV #1000. (RO)+ 1000 

1478 013060 012720 154021 MOV #154021, (RO) + MD STATUS C'' (VECTOR SCALE TO BE UPDATED) 

1479 013064 012720 136000 MOV #136000 (RO) + ‘BASIC SHORT VECTOR INSTR 

1480 013070 012720 000070 MOV (ROS + ‘LOW BYTE, 10 COUNTS. PATH 3 

1481 013074 012720 172000 MOV #175000, (RO)+  :LD STOP INSTR 

1482 013100 012701 000776 MOV #776 ‘SET UP X EXPECTED DATA 

1483 013104 012702 001002 MOV #1005. R2 ‘SET UP Y EXPECTED DATA 

1484 013110 012737 000001 001164 MOV [SET UP SCALE FOR ER TYPE 

1485 013116 012737 000010 001162 MOV 416" $REGO ‘SET UP VECTOR LENGTH FOR ER TYPE 

1486 013124 012737 013132 001110 MOV #1$.S$LPERR SSET UP SCOPE LOOP ADRS 

1487 013132 004737 024524 1$: JSR PC EXECUTE ‘START DISPLAY 

1488 013136 013737 901764 001122 MOV XPOS , SBDADR SET UP REG ADRS 04 

1489 013144 010137 001124 MOV Ri .SGDDAT [LD EXPECTE 

1490 013150 017737 10 001126 MOV ax : x POS 

1491 013156 023737 001124 001126 CMP $GDDAT, SpDDAT s¢ CT? 

1492 013164 001401 BEQ SO 

1493 013166 104011 ERROR 11 *X VECTOR POS FAILED TO SCALE 

1494 013170 013737 001766 001122 2%: MOV YPOS , $BDADR [SET UP REG ADRS 06 

1495 013176 010237 001124 MOV R2,$GDDAT ‘LD EXPECTED 

149% 013202 017737 166560 001126 MOV @YPOS,$BDDAT  :READ Y POS R 

1497 013210 023737 001124 001126 CMP $GDDAT, SBDDAT ; CORRECT? 

1498 013216 001401 BEQ 3$ [BR IF SO 

1499 013220 104011 ERROR 11 ‘Y VECTOR POS FAILED TO SCALE 

1500 013222 005237 001164 3$: INC $TMPO SADVANCE SCALE BY 

1501 013226 022737 000020 001164 CMP #20,$TMPO TALL SCALE VALUES TESTED? 

1502 013234 001407 BEQ TST43 : {NEXT TEST IF SO 

1503 013236 005237 032540 INC BUF FER+10 ADVANCE SCALE BY 1/4 AT INSTR LOC. 

1504 013242 162701 000002 SUB #2,R1 “DECREASE EXPECTED X POS BY 1/4 

1505 013246 062702 000002 ADD #2 .Re ‘BUMP EXPECTED Y POS BY 1/4 

1506 013252 000727 BR ‘TRY NEXT SCALE | 

1508 FP REAR R REE ERE ERE EERE 
(3) s*TEST 43 TEST VECTOR sCALE SUMMING LOGIC USING BASIC VECTOR MODE 
(3) *“RRAEARKEARAAEKEKEREKEKRAEEKAAAAAEAAAEAEAKCAAKAEARARAARAARARAEAREREAREEAEREREEEE 
(2) 013254 000004 1$143: SCOPE 
(2) 013256 012737 000043 001202 MOV #43, $STESTN ::SET TEST NUMBER IN APT MAIL BOX 

1509 ; DRAW A SERIES OF 8 VECTORS, 31 UNITS LONG. TEST THAT SUMMER 

1510 t ADDS AND SUBTRACTS CORRECTLY FOR EACH SCALE VALUE. 

1511 > OMIT IF SCALING ECO (# ) IS NOT INSTALLED (SwWR BIT 10). 

1513 013264 032777 002000 165646 BIT #SW10, aSWR 

1514 013272 001002 BNE +6 

1515 013274 000137 013562 JMP 4$ ; EXIT IF SWR10 NOT SET. 

1516 013300 012700 032530 MOV #BUFFER,RO > SET DISPLAY CODE IN BUFFER, 

1517 013304 012720 154024 MOV #154024. (RO)+ +: SCALE UNITY (1) 

1518 013310 012720 116000 MOV #116000.(RO)+  % POINT. 

1519 013314 005020 CLR (RO)+ : x 0 

1520 013316 005020 CLR (RO)+ : v0 

1521 013320 012720 154021 MOV #154021, (RO) + ; SCALE 1/4 (VARIABLE). 

1522 013324 012720 122000 MOV #122000.(RO)+ +: BASIC VECTOR MODE. 

1523 013330 012701 000010 MOV #8. .R) 
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CZ7VSBB.P11 10-SEP-79 11:32 T43 TEST VECTOR SCALE SUMMING LOGIC USING BASIC VECTOR MODE SEQ 0046 
1524 013334 012720 006037 1$: MOV #6037, (RO)+ : DIRECTION 1, LENGTH 31... 
1525 013340 005301 DEC R1 
1526 013342 001374 BNE 1$ ; ...8 TIMES. 

1527 013344 012720 172000 MOV #172000, (RO)+ : STOP AND TEST X/Y. 

1528 013350 012701 000010 MOV #8..R 

1529 013354 012720 026037 2$: MOV #26037, (RO)+ : DIRECTION 5, LENGTH 31... 
1530 013360 005301 DEC R1 

1531 013362 001374 BNE 2$ : ...8 TIMES. 

133 013364 012720 172000 MOV #172000. (RO)+ : STOP AND TEST X/Y AGAIN. 

1534 013370 012737 013414 001110 MOV #3$,$LPERR ; SET SCOPE LOOP ADDRESS. 

1535 013376 012737 000001 001164 MOV #1,$TMPO ; SCALE FACTOR FOR ERROR OUTPUT. 
1536 013404 005037 001162 CLR $REGO * START VAL IS 0. 

1537, 013410 012701 000076 MOV #62. ,R1 + 31. x 8. x 1/4 = UNIT LENGTH. 
1538 013414 010137 001124 3$: MOV R1,$GDDAT : SET EXPECTED END POIN 
1539 013420 004737 024524 JSR PC, EXECUTE ; EXECUTE 8 VECTORS hos. POS). 

1540 013424 017737 334 001126 MOV aXPOS , SBDDAT 

1541 013432 023737 001124 001126 CMP ScDDAT, $BDDAT 

1542 013440 001401 BEQ 

1543 013442 104011 ERROR ‘7 : & SCALE (ADDING) FAILED. 

1544 013444 017737 166316 001126 MOV aYPOS , SBDDAT 

1565 013452 023737 001124 001126 CMP SCDDAT, SBDDAT 

1546 013460 001401 BEQ 

F 974 013462 104011 ERROR i} : Y SCALE (ADDING) FAILED. 

1549 013464 005037 001124 CLR SGDDAT ; RESET EXPECTED X/Y. 

1550 013470 004737 024552 JSR PC, CONT : EYECUTE 8 VECTORS (NEG,NEG). 
1551 013474 017737 166264 001126 MOV @XPOS , SBDDAT 

1552 013502 023737 001124 001126 CMP SGDDAT , $BDDAT 

1553 013510 001401 BEQ +4 

1554 013512 104011 ERROR 11 : & SCALE (SUBTRACTING) FAILED. 
1555 013514 017737 166246 001126 MOV aYPOS , $BDDAT 

1556 013522 023737 001124 001126 C SGDDAT, $BDDAT 

1557. 013530 001401 BEQ +6 

138 013532 104011 ERROR 11 : Y SCALE (SUBTRACTING) FAILED. 

1560 013534 023727 001164 000017 CMP STMPO 417 

1561 013542 001407 BEQ TST44 77EXIT WHEN ALL SCALES DONE 
1562 013544 005237 001164 INC $T : OTHERWISE, NEXT SCALE VALUE. 
1563 013550 005237 032540 INC BUF FER+10 +...IN DISPLAY CODE TOO. 

1564 013554 062701 000076 ADD #62.,R1 * NEXT EXPECTED END POINT. 

1565 013560 000715 BR 3$ > AND CONTINUE. 

1566 013562 4$: 

1568 LER R ARERR ERRATA AREA AAA EERE 
(3) S*TEST 44 TEST THAT EXCEEDING +X AXIS SETS EDGE INDICATOR 
(3) SLE E EEE E RARER REAR AREA AAA A AAA AA TA AA AAA AAAS 
(2) 013562 TST44: SCOPE 
(2) 013564 012737 000044 001202 MOV #44, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
1569 013572 013737 001762 001122 MOV SREGO,$BDADR § :SET UP REG ADRS 02 
1570 013600 013700 001712 MOV DBUF ,R 
1571 013604 012720 154024 MOV #154024,(RO)+  ;SCALE OF UNITY 
1572 013610 012720 116000 MOV #116000,(0)+ LOAD POINT 
1573 013614 012720 001777 MOV #1777, (0)+ “LOAD MAX X 
1574 013620 005020 CLR (0)+ ;LOAD Y 
1575 013622 012720 172000 MOV #172000, (RO)+ LOAD STOP 


CZ7VSBB == VS60_ INSTRUCTION TEST 


CZ7VSBB.P11 


014074 


10-SEP-79 11 


012720 


012737 
017737 
032737 
001002 
104020 
000414 


1:32 
110000 
000001 


172000 
024524 
001124 
166102 
000040 


024552 
000040 
166046 
000040 


024524 
001124 
166014 
000040 


000045 
001762 
001712 
116000 
hE 95 

110000 
020001 


172000 
024524 
024552 


000040 
165702 
000040 
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TEST THAT EXCEEDING +X AXIS SETS EDGE INDICATOR 


MOV #110000,(0)+  ;LOAD LONG VECTOR 
MOV #1,(0)+ ‘LOAD DETA 
CLR (05+ * LOAD DELTA. y 
MOV #172000,(0)+  =LOAD STOP 
JSR PC EXECUTE :START DISPLAY AND WAIT FOR STOP FLAG 
CLR $GDDAT SCLEAR EXPECTED 
001126 MOV QSREGO,SBDDAT READ STATUS 
001126 BIT #40, SBDDAT “TEST BIT 5 
ERROR 20 ZEDGE INDICATOR SET IN ERROR 
BR TST45 i: 
1$: 
JSR PC, CONT RESUME DISPLAY AND WAIT FOR STOP FLAG 
001124 MOV WBITS,$GDDAT —; LOAD EXPECTED 
001126 MOV @SREGO,$BDDAT :READ STATUS 
001126 Bi! #40, SBDDAT ‘TEST BIT 5 
ERROR 20 :EDGE INDICATOR FAILED TO SET 
BR TST45 p- 
23: 
JSR PC, EXECUTE :START DISPLAY AND WAIT FOR STOP FLAG 
CLR $GDDA SCLEAR EXPECTED 
001126 MOV soRrC, SBDDAT SREAD STATUS 
001126 BIT #40, $BDDAT ‘TEST BIT 5 
BEQ TST45 +:BR IF EQUAL 
ERROR 20 *EDGE INDICATOR FAILED TO CLEAR 
EERE EEER ERATE EE 
TSTEST 45 TEST THAT EXCEEDING -X AXIS SETS EDGE INDICATOR 
RRR REE EERE 
18145: SCOPE 
001202 MOV #45, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
001122 MOV SREGO,$BDADR = SET UP REG ADRS 02 
MOV DBUF .RO 
MOV #116000,(0)+ | ;LOAD POINT 
CLR (0)+ [LOAD MAX x 
CLR (0)+ iL 
MOV #172000,(RO)+ iL STOP DISPLAY 
MOV #110000.(0)+ | [LOAD LONG VECTOR 
MOV #20001, (0)+ “LOAD DETA X 
CLR (0)+ [LOAD DELTA Y 
MOV #172000.(0)+  :LOAD ST 
JSR PC EXECUTE :START DISPLAY AND WAIT FOR STOP FLAG 
JSR PC. CONT ‘RESUME DISPLAY AND WAIT FOR STOP FLAG 
001124 MOV WB1T5 .SGDDAT —_; LOAD EXPECTED 
001126 MOV aSREGO, SBDDAT SREAD STATUS 
001126 git #40, SS$BDDA “TEST BIT 5 
ERROR 20 sEDGE INDICATOR FAILED TO SET 
BR TST46 *; 


SEQ 0047 
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CZ7VSBB.P11 10-SEP-79 11:32 145 T THAT EXCEEDING =X AXIS SETS EDGE INDICATOR 


014076 2$: 
024524 PC, hy a ;START DISPLAY AND WAIT FOR STOP FLAG 
001124 $GDDAT ;CLEAR EXPECTED 
@SREGO, + pan ;READ STATUS 
#40, $BDDA ;TEST BIT 5 
E TST46 ;BR_IF EQUAL 
014124 20 ZEDGE INDICATOR FAILED TO CLEAR 


JUSSI ISIC IOISISIOIIOIIOIOIOIOIOIOIOIOIUIOIOIOII OTTO TOT TOT TT TET OTE TTT TTT TET TE TST TET TOT TOI TE 
TEST 46 TEST THAT EXCEEDING +Y¥ AXIS SETS EDGE INDICATOR 
IES ISIOIUIOISIISISIUIUIO SISO ISIIOIOISIOIOIIUIOISISI OI IOIUIDIDISIIOIUIDIDIDIDIDIDIDIIDI EID 
014126 000004 18146: 
#46, $TESTN 7;SET TEST NUMBER IN APT MAIL BOX 
SREGO, $BDADR SET UP REG ADRS 02 


DBUF ,RO 

#116000, (0) + ;LOAD POINT 

(0)+ LOAD X 

#1777, (0)+ ;LOAD MAX Y 

#110000, (0)+ ;LOAD LONG VECTOR 

(0) + LOAD DETA X 
;LOAD DELTA Y 


#1,(0)+ 
172000 #172000, (RO)+  :LOAD STOP 
024524 PC EXECUTE :START DISPLAY AND WAIT FOR STOP FLAG 


000040 WBITS,SGDDAT —_ ; LOAD EXPECTED 
165544 @SREGO,$BDDAT  :READ STATUS 
001124 $GDDAT.SBDDAT TEST BIT 5 
TST47 s:BR IF SET 
014230 20 ‘EDGE FLAG FAILED TO SET 


LTR EEEKRERREEREEREERR ERE EEK 


i*TEST 47 TEST THAT EXCEEDING ~Y AXIS SETS EDGE INDICATOR 


FLARE RRR ERE EERE ERE EERE REE EERE EERE EERE EERE EE 


014232 000004 TST47: 

0142 #40, $TIMES 3:D0 40 ITERATIONS 
#47, STESTN 33SET TEST NUMBER _IN APT MAIL BOX 
SREGO, $BDADR ;SET UP REG ADRS 02 


DBUF .RO 
#116000,(0)+  =LOAD POINT 
(0)+ : OAD x 


(0) + ° 
#110000, (0)+ LOAD Long VECTOR 
#20001, (0)+ “LOAD DELTA Y 
014304 2000 #172000, (0)+ “LOAD STOP 
014310 004737 0246524 PC, EXECUTE ;START DISPLAY AND WAIT FOR STOP FLAG 


014314 012737 000040 #B1TS ,SGDDAT LOAD EXPECTED 
017737 165434 asRECO, +1 ted READ STATUS 
Ee 000040 #20. ,SBDDAT :TEST BIT 5 


BN :BR IF SET 
104020 20 EDGE FLAG FAILED TO SET 
5 : :CLR EDGE INDICATOR 
005037 $GDDAT EXPECT ZERO 
014350 017737 @SREGO,$BDDAT ;READ REG 02 
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WOONAUSWN—O 


ek ed ed ed ed = od od = 


NNNNN NSN NOS 


MON 
wN— 


014356 
014364 
014366 


014370 
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as Hat 


000004 
012737 
012737 


012737 


177737 


600100 
000050 


021377 
001377 


021377 


021377 


001377 
021377 


001377 
021377 
001377 
001377 
021377 
172000 
615214 
165636 


00017 
030550 
177776 


001126 


001166 
001202 


177776 
165402 
165376 


165130 
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TEST THAT EXCEEDING -Y AXIS SETS EDGE INDICATOR 


;CLR JUNK 
NEXT TEST IF CLRED 
;RESET FAILED TO CLEAR EDGE INDICATOR 


SL RRR RRR KERRIER ERE REE EERE REE KKRERERRERRERE EE 


TEST EDGE INDICATOR & EDGE INTR GOING-ON TO OFF, OFF TO OFF & OFF TO ON 


PDS Rt kkk Bk hk kik lekki hehehe de kaha lalelahehahehelelahahalelalelaiahaiahslcialaheheieieieieiaieislelalaielel 


BIC #177737, $BDDAT 

BEQ TST50 

ERROR 

s*TEST 50 
TST50: SC 
MOV #100, $TIMES 
MOV #50, STESTN 
:D0 ABOVE TEST 
000/1000 
“DELTA 1307 TO PIONT OF 

MOV .PSW : 

MOV 92S aLPVCT 

MOV #340, aLPVCTI 

MOV #BUFFER,RO 

MOV #176080, (RO) + 

MOV #116000, (RO)+ 

MOV #1000, (RO) + 

MOV #1000, (RO) + 

MOV #112000, (RO)+ 

MOV #1377, (RO)+ 

CLR (RO)+ :Y 

MOV #21377, (RO)+ 

MOV #377, (RO) + 

CLR (RO) + 

MOV #21377, CaO 

CLR (RO) + 

MOV #1377 crd)+ 

MOV #21377, (RO)+ 

MOV #21377. (RO) + 

MOV #377. (RO) + 

CLR (RO)+ ; 

MOV #21377, ca0+ 

CLR (RO) + 

MOV #1377 (rd) + 

MOV #21377, (ROD + 

CLR (RO) + 

MOV #1377, nds 

CLR (RO) + 

MOV #21377, (ROD + 

MOV #1377, (RO)+ 

MOV #1377. (RO)+ 

MOV #21377, (RO)+ 

CLR (RO) + 

MOV #72000, ipo) 

MOV #TBL4R,RO 

CLR R2 

MOV #163636, R4 

MOV #171,R3 

MOV Alar ¥ aDPC 

CLR PSW 


3:D0_100 ITERATIONS 
:sSET_ TEST NUMBER IN APT MAIL BOX 


FOUR SCREEN EDGES USING LONG VECTOR 


ON ALL 
: SEQUENCE AS BOE ME CTON THRU OFF SCREEN DELTA 1397 FROM 


THRU C 
[TO EQUIVILENT POINT IN ADJACENT AXIS 


ORNER OF SCREEN DELTA 1377 
THEN VECTOR ON SCREEN 


; ADRS 

HIGHEST PRIORITY ON INTR 

STARTING ADRS OF INSTRS 

7LD STATUS B' INSTR (ENAB EDGE FLAG INTR) 
ae 


7Y¥=1000 
;LONG VECTOR INSTR 


; STOP 
ADRS OF ies x & Y POS VALUES 
7CLR SOFTWARE TIMER 

; THE EXPECTED EDGE 1 ai 
:CONTROLLED BY R3 & R 


: START 
TALLOW INT TO OCCUR 


SEQ 0049 


Ww 
Ww 


iveee =~ VS60 Peta tt TEST PART I] 
79 11:32 


001762 
000004 
165102 
177773 


001762 
000004 


MACY11 30G(1063) 
T50 TEST EDGE INDICATOR & EDGE INTR GOING-ON TO OFF, OFF TO OFF & OFF TO ON 


r 
17-SEP-79 08:46 PAGE 9-27 


Re 


1$ 
SREGO, — 
#4 ,$GDDAT 

@SREGO, SBDDAT 


#177773, $BDDAT 
33 


11$ 
(SP) +, (SP)+ 
SREGO, $BDADR 
#4, $GDDAT 


; THIS pa pts SHOULD NEVER UNDERFLOW 
[WAIT FOR INT 
SET UP REG Op ADRS 
SEXPECT EDGE FLAG 
READ REG 02 
SAVE ONLY EDGE FLAG 
; EDGE FLAG FAILED” TO INTERRUPT 
;LOOK FOR LOOP ON TEST 
SRETURN HERE ON INTR = FIX STACK SINCE NO RTI 
;SET REG ADRS 02 
sEXPECT EDGE FLAG 
;ZERO_CARRY 


RAK 


R3 
R4 D 
3$ ;BR_IF NOT EXPECTING EDGE INDICATOR 
#40, S$GDDAT EXPECT EDGE INDICATOR ALSO 


SES 


RRR RAVAN 


RRS 


+t omnes , SBDDAT 
33 

11$ 
(RO)+,$GDDAT 
POS, $BDADR 


PC ,POCONV 

SGDDAT , SBDDAT 

5$ 

33 

18 scoa 
+ 

YPOS, $BDADR 


a@YPOS , $BDDAT 
aYDOFF ,R5 


READ REG 02 
SAVE EDGE BITS ONLY 
; CORRECT? 
;BR IF SO 
sEDGE FLAG OR INDICATOR FAILED TO SET ON INTERRUPT 
FOR LOOP ON TEST 


; LOOK 

:LD_ EXPECTED X POS 
7SET UP REG 04 ADRS 
READ X POS 


;GET HI X POS 

SMAKE SURE NOT _OREATER THAN 10 BITS 
71S IT CORRECT? 

BR IF SO 

7X POS INCORRECT ON INTR 

;LOOK FOR LOOP ON TEST 

:LD EXPECTED Y POS 

;SET UP REG 06 ADRS 

READ Y aa 

:GET HI Y 


POS 
PC ,POCONV MAKE SURE NOT 9 OREATER THAN O02 BITS 
SGDDAT,S$BDDAT 1S IT CORRECT? 
6$ BR IF SO 
7Y POS INCORRECT ON INTR 
LOOK FOR L ON TEST 
SHAVE. 24 INTRS BEEN DONE? (18 OFF=-6 ON SCREEN) 
ZALL OW INTR ON RESUME 


RESUME 
BR 1$ SRETURN TO COUNTER 
032530 7$: f SSET UP FOR NO EDGE FLAG INTR ENAB 
164702 #9$-aLPVCT ‘SET UP INTR RETURN ADRS - NONE EXPECTED 
SREGO,$BDADR §:SET UP REG ADRS 02 
WBUFFER,aDPC =: START 
00,R2 :SET COUNTER 


R ; 
8$ ‘ALLOW TIME TO COMPLETE 
10$ ‘SKIP OVER INTR RETURN 
. (SP)+, (SP)+ ‘FIX STACK IF UNEXPECTED INTR OCCURED 
112 #100000, $GDDAT EXPECT STOP ONLY 
017737 @SREGO,$BDDAT  :READ REG 02 


752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 


~ 
GRARA 


RERRRER ESS 


N 
jolelelejlejlelejlejlejlojojq) 


ss SS 3 SS Ss SS 4 OH 


S 
oo 
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042737 077773 001126 #77773,$BDDAT ;SAVE STOP + EDGE FLAG ONLY 
Fe Le 001124 001126  camaneenes ; CORRECT? 


BR IF SO 
104045 45 ; UNEXPECTED ror INTR OR EDGE FAILED TO CLR 
0152 004737 024634 : PC ,RSTVEC [RESTORE VECT 
015212 000461 BR TST51 3370 NEXT TEST. 


015214 : ; ; TABLE CONTAINS EXPCTED X & Y POS RESULTS ON EA. EDGE INTR 


B23Se 


BESeoreNcSSeTeeE 


00 Cd CO 00 00 Oo 00 00 CO Co 
aad aad an aad cad ad ad ced ad ee 
WOONAUSWN—O 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


88 


; TERMINATOR 





4 
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1835 
1832 WTTTTTITTL LLL LLL LLL LL LLL LLL LLL DD 
LOAD CHARACTER REGISTER WITH #0 THRU #77 


© Re HH TT ERR EERE EERE EER EEE EERE REE EEE 


015356 000004 +8151: 
015360 #100,STIMES D0 100 ITERATIONS 
#51,$ ::SET TEST NUMBER IN APT MAIL BOX 
¥PO8, SBDADR T UP REG ADRS 06 
#1$,SLPERR LOAD RETURN 
#100000,a@DBUF © ;LOAD ‘'CHARACTER MODE'' 
$GDDAT ;LOAD ‘NULL'" CHARACTER 
DSAVE ;CLEAR EXPECT CHARACTER 
#172000 BUF FER+4 LOAD DISPLAY STOP 
0154 001726 DSAVE @BUF 1. :LOAD BUFFER 
015442 004737 PC EXECUTE ;START DISPLAY AND WAIT FOR STOP FLAG 


015446 MOV @YPOS , SBDDAT ;READ CHARACTER REG. 
273 #1777 ,SBDDAT :MASK TO BITS 10-15 
$GDDAT , SBDDAT COMPARE EXPCT TO RCVD 
2$ ;;BR IF EQUAL 
21 ERROR, CHARACTER REGISTER LOADED IN ERROR 
015474 000415 BR TST52 ;BR UPON ERROR 


Ce id te 
Ss So as eae 


015476 : #2000, $GDDAT : UPDATE EXPECTED VALUE 
005237 DSAVE HARACTER VALUE 
#16,DSAVE 
:BR BA ER CHAR 
#100 ,DSAVE TEST FOR LAST VALID CHAR <6 BITS> 
1$ DONE 


BR BACK IF NOT 


JE EERIE IIE ISS ISSO OCICS SOIOI SOTO IUT INI I ERIE 
TRTEST 52 TEST THAT ‘NULL"’ DOES NOT CHANGE X OR Y AXIS 
SEA OEIC ISIEIIIOISISI IOI IOCOITIOIOICICIOIOIIOOIUIOIOIOIT IT ITT TT TT TT II TT IE 
18152: 
#52, $TESTN 3:SET TEST NUMBER IN APT MAIL BOX 
#116000,aDBUF ;POINT MODE 


;LOAD BUFFER 


1000 
LOAD ''CHARACTER MODE"* 
NULL CHARACTER 
#172000, @DBUF5 ;LOAD DISPLAY STOP 
PC EXECUTE START DISPLAY AND WAIT FOR STOP FLAG 


aXPOS , SBDDAT READ X AXIS 
#1000, $GDDAT ;LOAD EXPECTED 
$GDDAT , SBDDAT COMPARE EXPCT TO RCVD 


es ; YES 
XPOS , SBDADR 3SET UP REG ADRS 04 
oe 153 ; “NULL ** CHARACTER CHANGED X AXIS 


017737 : @YPOS,$BDDAT  =;READ Y AXIS 
042737 176000 #176000,$8DDAT MASK TO BITS 0-9 
023737 SGDNAT, $BDDAT “COMPARE EXPCT TO RCVD 


015666 001404 33BR IF EQUAL 
015670 013737 YPOS , SBDADR 7SET UP REG ADRS 06 


o---— 
Nm 
AVR 
wo 
Bix 
soo 


28% 
28g 
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CZ7VSBB.P11 


(2) 


CREE EES SE RE Ry RE kf tte 


Avvo 
we 
w-O 


(3) 


oO 
—_ 
N 


ah aa aa aah al ald eel cel anil 

00000000 
Por Pe P= Poe P= Pe P| 
WOONAURW 


VIS 


1921 


015676 


015750 
015754 


016210 


104022 


ON 


172000 
024524 
163616 
176000 
001000 
001742 
001124 
001764 


EST 


PART I] 


001202 


gg g gage 
SRERT 


001202 


MACY11 30G6(1063) 
T52 


ERROR 


B 
17=SEP=79 — ~ PAGE 9-30 
TEST THAT *NULL** DOES 


22 


T CHANGE X OR Y AXIS 
;' NULL'’ CHARACTER CHANGED Y AXIS 


5 RRA RAEAAAAEREEEERAAER EERE RERORRERREER RARER RERERRREE EE 


SeTEST 53 


TST53: 


SCOPE 


CHAR SCALE 1/2 = NOT ROTATED = TEST DELTA xX 


5 AAA ERARERRRERRER EERE EERE EEREREREERRERREREERER DE 


#53,STESTN 
#BUFFER,RO 
#155200, (RO) + 


CHSZ0, $GDDAT 
S$GDDAT , SBDDAT 


1$ 
XPOS, . SBDADR 
@YPOS , SBDDAT 
#176000, $BDDAT 


TS 
YPOS , $BDADR 
22 


33SET TEST NUMBER IN APT MAIL BOX 
;LOAD BUFFER POINTER 
:LOAD Mle C NO ROT. & CHAR SCALE 0°’ 
OAD ‘PCINT MODE’ 
oe 1000 


ae 
7¥ = 1000 


;CHAR MODE 5 
"SPACE’' & * NULL’ 
LOAD DISPLAY STOF 
START DISPLAY AND WAIT FOR STOP FLAG 


READ X POSITION 

zMASK GRAPH INC. 

;LOAD BASE 

LOAD EXPECTED DATA 

; COMPARE RESULT 

yy z IS CORRECT 

; INCORRECT DELTA X WITH CHAR SCALE OF 1/2 
;READ Y AXIS 


MASK TOP BITS 
;LOAD EXPECTED 
TEST IF EQUAL 
AME 


S 
REG ADRS 06 
7Y AXIS CHANGED IN ERROR 


5 REE KEEKKEERKEKKEEREERKEEKKEEKKEKKKEKEKKEKEERKEKEKRKEEKEKEKEKEEKKEEEKEKEEKKERKEE 


S*TEST 54 


TST54: 


SCOPE 


CHAR SCALE 1 - NOT ROTATED - TEST DELTA X 


LL RARER KERR EKKEKEKEEEEKKEEKEKEKEKEKKEEKEEEEEKKEKEKEREEKKEKEREKEK EK 


#54 ,STESTN 
BUFFER ,RO 
#155240, (RO) + 
#116000, (RO) + 


PC EXECUTE 


@XPOS , $BDDAT 
#176000, $8DDAT 
00, $GDDAT 


TST 
XPOS , S$BDADR 
23 


e3SET TEST NUMBER IN APT MAIL BOX 
LOAD BUFFER POINTER 
LOAD "STATUS C NO ROT. & CHAR SCALE 1° 
;LOAD “POINT MODE’' 
7X = 1000 
zY¥ = 1000 
:CHAR MODE 
; ‘“SPACE’’ & *NULL"’ 
;LOAD DISPLAY STOP 
zSTART DISPLAY AND WAIT FOR STOP FLAG 


READ X POSITION 
MASK _GRAPH INC. 
LOAD BASE 

LOAD tg ty DATA 
; COMPARE RESU 

DELTA X IS CORRECT 


REG ADRS 04 
; INCORRECT DELTA X WITH CHAR SCALE OF 1 


SEQ 0053 
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CZ7VSBB.P11 10-SEP-79 11:32 154 CHAR SCALE 1 = NOT ROTATED = TEST DELTA x , SEQ 0054 
19 
bbe J FERRARA RARER EREEEREERREEEARRREREREEEEREREREREERRERERER EH 
(3) s*TEST 55 CHAR SCALE 1 1/2 = NOT ROTATED = TEST DELTA x 
(3) MARRBARAASAASASAAAALLASALESASLSLESS ESSE SEER SERRE ER ESE RERRSSRERERA RE SS 
(2) 016212 000004 78155: SCOPE 
(2) 016214 012737 000055 001202 MOV #55, $TESTN :3SET TEST NUMBER IN APT MAIL BOX 
1932 016222 012700 032530 MOV #BUFFER,RO LOAD BUFFER POINTER 
1933 016226 012720 155300 MOV #155300, (RO)+ ZLOAD ‘'STATUS C NO ROT. & CHAR SCALE 1 1/2 
1934 016232 012720 116000 MOV #116000, (RO) + ‘LOAD ‘POINT MODE"’ 
1935 016236 012720 001000 MOV #1000, (RO) + =X = 1000 
93% 016242 012720 001000 MOV #1000, (RO)+ 7Y¥ = 1000 
1937 016246 012720 100000 MOV #100000, (RO) + ;CHAR MODE 
1938 016252 012720 0 MOV #40, (ROS+ “SPACE'’ & ‘NULL’ 
1939 016256 012720 172000 MOV #172000, (RO) + ‘LOAD DISPLAY STOP 
Lb ay 016262 024524 JSR PC, EXECUTE SSTART DISPLAY AND WAIT FOR STOP FLAG 
1942 016266 017737 163472 001126 MOV axPOSs SBDDAT :READ X POSITION 
1943 016274 042737 176000 001126 BIC #176000, $8D “MASK GRAPH INC. 
1944 016302 012737 001000 001124 MOV #1000, S6DDAT LOAD BASE 
1945 016310 063737 001744 001124 ADD CHSZ2,$GDDAT ;LOAD EXPECTED DATA 
1946 016316 023737 001124 001126 CMP $GDDAT, SBDDAT ; COMPARE RESULT 
1947 016324 001404 BEQ TST56 ;BR IF DELTA. xX IS CORRECT 
1948 016326 013737 001766 001122 MOV YPOS , SBDADR “SET UP REG ADRS 06 
ib a4 016334 104023 ERROR 23 s INCORRECT DELTA X WITH CHAR SCALE OF 1 1/2 
1951 J LRA KEEKEKEKEKE 
(3) s*TEST 56 CHAR SCALE 2 - NOT ROTATED = TEST DELTA X 
(3) SL ARERR ERE ERR EEEKEKEEKEREEKEEKER REE 
(2) 016336 000004 TST56: SCOPE 
(2) 016340 012737 000056 001202 MOV #56,$TESTN :SET TEST NUMBER IN APT MAIL BOX 
1952 016346 013737 001764 001122 MOV XPOS , SBDADR <SET UP REG ADRS 04 
1953 016354 012700 032530 MOV #BUFFER,RO ;LOAD BUFFER POINTER 
1954 016360 012720 155340 MOV #155340. (RO) + ZLOAD "'STATUS C NO ROT. & CHAR SCALE 2’ 
1955 016364 012720 116000 MOV #116000, (RO)+ [LOAD ‘POINT MODE"’ 
1956 016370 012720 001000 MOV #1000, (RO) + =X = 1000 
1957 016374 012720 001000 MOV #1000, (RO)+ tY¥ = 1000 
1958 016400 012720 100000 MOV #100000, (RO) + =CHAR MODE 
1959 016404 012720 000040 MOV #40, (RO) + : ‘SPACE’ & "NULL" 
1960 016410 012720 172000 MOV #172000, (RO) + *LOAD DISPLAY STOP 
<2 016414 004737 024524 JSR PC, EXECUTE ;START DISPLAY AND WAIT FOR STOP FLAG 
1963 016420 017737 163340 001126 MOV @XPOS , SBDDAT :READ X POSITION 
1 016426 0427 001126 BIC #176000, SBDDAT ;MASK GRAPH INC. 
1965 016434 012737 001 001124 MOV #1000, $GDDAT LOAD BASE 
1966 016442 063737 001746 001124 ADD CHSZ73,$GDDAT ‘LOAD EXPECTED DATA 
1967 016450 023737 001124 001126 CMP SGDDAT , SBDDAT * COMPARE RESULT 
1968 016456 001401 BEQ TST57 7 iBR IF DELTA X IS CORRECT 
ba, 016460 104023 ERROR 23 ; INCORRECT DELTA X WITH CHAR SCALE OF 2 
1971 CD IR RIOT IR TR IR TTI IR TRI IR III IRR ERE REE RR RK 
(3) s*TEST 57 CHAR SCALE 1/2 = NOT ROTATED =- TEST DELTA Y 
(3) CLEARER EKER EERE EKER EEE 
(2) 016462 000004 1ST57: SCOPE 
(2) 016464 012737 000057 001202 MOV #57, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
1972 016472 013737 001766 001122 MOV YPOS , SBDADR ?SET UP REG ADRS 06 
1973 016500 012700 032530 MOV #BUF FER, RO :LOAD BUFFER POINTER 
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012720 


PART I] alah g aby > 


#155200, (RO)+ 
#116000, (RO)+ 


#195000, (RO) + 
PC, EXECUTE 


@YPOS , SBDDAT 
#176000, $BDDAT 
000, $GDDAT 
LFSZ0,$GDDAT 
S$GDDAT , $BDDAT 

TST60 


24 


016544 
016552 
016560 
016566 
016574 
016602 


17-SEP-79. 08:46 PAGE 9-32 
CALE 1/2 = NOT ROTATED = TEST DELTA Y 


;LOAD ‘'STATUS a NO ROT. & CHAR SCALE 1/2°" 
:LOAD “POINT MO DE*’ 


7X po 

zY = 1000 

: ‘ Sai "NUL rf 

;LOAD DISPLAY STOP 

;START DISPLAY AND WAIT FOR STOP FLAG 


READ Y POSITION 
;MASK GRAPH INC. 


;LOAD BASE 

LOAD EXPECTED DATA 

; COMPARE RESULT 

DELTA Y IS CORRECT 

; INCORRECT DELTA Y WITH CHAR SCALE OF 1/2 


77BR IF 


FLARE REE EERE EER EERE EERE KERR REREKREKEREREEEREKEE EH 


;*TEST 60 CHAR SCALE 1 - NOT ROTATED = TEST DELTA Y 


MADARA AAASAASLALALALASLARARALASALAAEASE RARER EASA RA RAR RRR R SESS SS | 


18160: 
001202 #60, $TESTN 
~ 


MO 
001122 YPOS , $BD 
#155240. (RO)+ 


#12,(RO)+ 
#172000, (RO)+ 
PC, EXECUTE 


aYPOS , SBDDAT 
#176000, SBDDAT 
#1000, $GD 

LFSZ1. ScDDAT 
ScDDAT, ,SBDDAT 


24 


33SET TEST we IN APT MAIL BOX 
;SET UP REG AD S 06 
LOAD BUFFER POINTER 
: LOAD ‘STATUS C NO ROT. & CHAR SCALE 1°" 
a MODE"’ 


: LAY STOP 
“START DISPLAY AND WAIT FOR STOP FLAG 
:READ Y POS!TION 


;MASK GRAPH INC. 


LOAD BASE 
;LOAD EXPECTED _— 
; COMPARE RESUL 
DELTA Y IS CORR RECT 
: INCORRECT DELTA Y WITH CHAR SCALE OF 1 


7 2BR IF 


LTR AEE K 


i*TEST 61 


CHAR SCALE 1 1/2 - NOT ROTATED - TEST DELTA Y 


~mASPeAeSASeSeSESALELELAALELALALSLA LALLA EASE LASERS ERAS ESAS ESS SY 


18161: 
#61,$TESTN 
YPOS , S8DADR 
BUFFER ,RO 
#155300, (RO)+ 
#116000, CRO)+ 


017004 
017010 PC EXECUTE 


73SET TEST cy IN APT MAIL BOX 
SET UP REG ADRS 06 
BUFFER 


; LOAD POINTER 
sLOAD ‘'STATUS C NO ROT. & CHAR SCALE 1 1/2"* 
= LOAD aad MODE"’ 


DISPLAY STOP 
T PLAY AND WAIT FOR STOP FLAG 
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017014 


017054 


017056 
01 


017324 


10-SEP-79 11:32 
017737 162746 
7 176000 


001000 
001754 
001124 


000 
024524 
162622 
176000 


172000 
024524 
162476 
176000 


001000 
001740 
001124 


PART I] 


001126 


001202 


001122 


001202 
001122 


ere, 7 goog 


MOV @YPOS , SBDDAT 
BIC #176000, $BDDAT 
MOV #1000, $GDDAT 
SUB LFSZ2,$GDDAT 
CMP $GDDAT, $BDDAT 
BEQ TST62 

ERROR 24 


E 
17-SEP-79 08:46 PAGE 
CALE 1 1/2 = NOT ROTATED = TEST DELTA Y 


9-33 


;READ Y POSITION 
GRAPH 


:MASK INC. 
LOAD EXPECTED 

;LOAD EXPECTED DATA 
> COMPARE RESULT 


;;BR IF DELTA Y IS CORR ECT 


SEQ 0056 


; INCORRECT DELTA Y WITH CHAR SCALE OF 1 1//2 





SL II RRR REE KEKE EEE EERE REE EKEKEEEEEEREREEEEREKEEEE KEKE EK 


S*TEST 62 CHAR SCALE 2 - NOT ROTATED - TEST DELTA Y 
SLR REE 
TST62: SCOPE 
MOV #62,$TESTN :;SET TEST NUMBER IN APT MAIL BOX 
MOV YPOS, $BDADR ‘SET UP REG ADRS 06 
MOV #BUFFER,RO LOAD BUFFER POINTER 
MOV #155340. (RO)+ : LOAD STATUS “i NO ROT. & CHAR SCALE 2" 
MOV #116000, (RO)+ [LOAD ‘POINT MODE'’ 
MOV # 000, (RO) + X= Oo 000 
MOV #1000, (RO) + *Y¥ = 1000 
MOV #100000 (RO) + : CHAR MODE 
MOV RO) + LF’ @ NULL" 
MOV 4195000 (RO) + ‘LOAD DISPLAY STOP 
JSR PC EXECUTE ‘START DISPLAY AND WAIT FOR STOP FLAG 
MOV aYPOS, $BDDAT :READ Y POSITION 
BIC #176000, SBDDAT ‘MASK GRAPH INC. 
MOV #1000, $GD SLOAD EXPECTED 
SUB LFSZ3, SeDDAY ‘LOAD EXPECTED DATA 
CMP $GDDAT , $BDDAT = COMPARE RESULT 
BEQ TST63 ::BR IF DELTA Y IS CORRECT 
ERROR 24 s INCORRECT DELTA Y WITH CHAR SCALE OF 2 
SLR RRR EERE ERE ERE REE EERE REE EKKEREE REE KERR EEE 
T*TEST 63 CHAR SCALE 1/2 = ROTATED - TEST DELTA Y 
LRA RRR ER REE RRR E RK REE KERR REE EREEEREEKEEKE 
TS163: SCOPE 
MOV #63,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
MOV YPOS , $BDADR >SET UP REG ADRS 06 
MOV FER,R ;LOAD BUFFER POINTER 
MOV #155600, (RO)+ LOAD "STATUS “5 ROT. & CHAR SCALE 1/2" 
MOV #116000, (RO)+ [LOAD ‘POINT MODE'' 
MOV #1000, (RO) + “xX = 1000 
MOV #1000, (RO) + ‘Y¥ = 1000 
MOV #100000, (RO) + : R MODE 
MOV 40, (ROS + : CE’’ & ‘NULL’ 
MOV #172000, (RO) + Ty DISPLAY STOP 
JSR PC EXECUTE ‘START DISPLAY AND WAIT FOR STOP FLAG 
MOV @YPOS , $BDDAT :READ Y POSITION 
BIC #176000, SBDDAT [MASK GRAPH INC. 
MOV #1000, $GDD ‘LOAD BASE 
ADD CHSZ0, SepDAT ‘LOAD EXPECTED DATA 
CMP $GDDAT , SBDDAT * COMPARE RESULT 
BEQ 1$ ::BR IF DELTA Y IS CORRECT 
ERROR 38 : INCORRECT DELTA Y WITH CHAR SCALE OF 1/2 


MONMMNNNNTENMNN 
aah ah aed oD ce ed ene od a nh eh 
S&S 


on anh aah ca aah oth ld aah 
NOAWEWMN-O 


CZ7VSBB == VS60 et TEST PART I] MACY11 go gy 
CZVSBB.P11 11:32 163 













, 2 
17=SEP=79 08:46 PAGE 9-34 










10-SEP-79 SCALE 1/2 = ROTATED = TEST DELTA Y SEQ 0057 
017326 162432 MOV @XPOS , $BDDAT :READ X AXIS 
017334 176000 BIC #176000, $BDDAT ‘MASK TOP BITS 
017342 001000 MOV #1000, $GDDAT SLOAD EXPECTED 
017350 001124 CMP SGDDAT , SBDDAT ‘TEST IF EQUAL 
017356 BEQ TST64 ::BR IF SAME 
017360 ERROR 22 7X AXIS CHANGED IN ERROR 
Pit alalelahahahehelehehahehehehelehehaheheheheleteiaiehahehehahehehehshaheieieiehehsiehsieisleielsieleleliaieiaiaieleicieielelel 
[*TEST 64 CHAR SCALE 1 = ROTATED - TEST DELTA Y 
STARA ERE REE REE EREERE EKER REE R EE RH 
017362 SCOPE 
017364 MOV #64, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
017372 1766 MOV Y°05, $BDADR :SET UP REG ADRS 06 
017400 032530 MOV #BUFFER,RO ;LOAD BUFFER POINTER 
017404 155640 MOV #155640. (RO) + ZLOAD ‘'STATUS C ROT. & CHAR SCALE 1°" 
017410 116000 MOV #116000, (RO}+ [LOAD ‘POINT MODE’ 
017414 1000 MOV #1000, (RO) + =X = 1000 
017420 001000 MOV #1000, (RO) + tY = 1000 
017424 100000 MOV #100000. (RO)+ CHAR MODE 
017430 000040 MOV ROS+ : SPACE’ & NULL 
017434 172000 MOV #173000, (RO)+ ‘LOAD DISPLAY sr 
017440 024524 JSR PC EXECUTE ;START DISPLAY AND WAIT FOR STOP FLAG 
017444 162316 MOV @YPOS, SBDDAT ;READ Y POSITION 
017452 176000 BIC #176000, $BDDAT ‘MASK GRAPH INC. 
017460 001000 MOV #1000, $GDDAT [LOAD BASE 
7466 001742 ADD CHS71.$GDDAT ‘LOAD EXPECTED DATA 
017474 001124 CMP $GDDAT , $BDDAT = COMPARE RESULT 
017502 BEQ TST65 ::BR IF DELTA Y IS CORRECT 
017504 ERROR 235 s INCORRECT DELTA Y WITH CHAR SCALE OF 1 
SD I IIR RR KERR ERE KER EKER EKER EEE EERE EERE KEE EEK 
S*TEST 65 CHAR SCALE 1 1/2 - ROTATED - TEST DELTA Y 
J LR RRR ERR EERE EER EER ERE EEE REE ERR EERE REE RRR EEE 
017506 SCOPE 
017510 5 MOV #65, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
017516 1766 MOV YPOS, $BDADR *SET UP REG A ADRS 06 
017524 032530 MOV #BUFFER,RO OAD BUFFER POIN 


017576 
01 


017630 





172000 
024524 
162172 


CLEA AA AAA A EAR EAERAERAEREAAAAAEAAAAAARAAEAAERAER RARE EEE 






TER 
#155700. (RO)+ LOAD er & CHAR SCALE 1 1/72 





;CHAR MO DE 
"“SPACE'' & ‘NULL"' 
[LOAD DISPLAY STOP 





MOV 4195000, (RO) + 









JSR PC EXECUTE ‘START DISPLAY AND WAIT FOR STOP FLAG 
MOV @YPOS ,SBDDAT :READ Y POSITION 

BIC #176000, $BDDAT :MASK _ GRAPH INC. 

MOV #1000, $GDDAT LOAD BASE DAT 

ADD CHSZ72,$GDDAT LOAD EXPECTED DATA 

CMP $GDDAT, $BDDAT * COMPARE RESULT 

BEQ TST66 ::BR IF DELTA Y IS CORRECT 

ERROR 25 > INCORRECT DELTA Y WITH CHAR SCALE OF 1 1/2 


=- VS60 INSTRUCTION TEST PART I] MACY11 goat ee 
-P11 10-SEP-79 11:32 T66 


:*TEST 66 


G 
17=SEP=79 08:46 PAGE 9-35 
CALE 2 = ROTATED = TEST DELTA Y 


CHAR SCALE 2 = ROTATED = TEST DELTA Y 


5 RRARAAAAEOEAAEERE REET EEEREEE RARER REAR 


017632 15166: 
#66, STESTN 
YPOS , SBDADR 
#BUF FER, RO 
#155740, (RO)+ 
#116000, (RO) + 
£1985 0) 
+ 
#100000. (RO) + 
(ROS + 


#173000, (RO) + 
PC EXECUTE 


@YPOS , SBDDAT 


172000 
024524 
162046 
176000 


017710 


017714 001126 
001000 #1000, $GDDAT 
001746 CHSZ3,$GDDAT 
001124 001126 eo 


017754 25 


#176000, $BDDAT 


3;SET TEST NUMBER IN APT MAIL BOX 

7SET UP REG ADRS 06 

LOAD BUFFER POINTER 

SLOAD ‘STATUS C ROT. & CHAR SCALE 2"' 
OAD ‘POINT MODE'' 


iL 
7x 
i | 


MODE 
E’'' & ‘NULL’ 
;LOAD DISPLAY STOP 
START DISPLAY AND WAIT FOR STOP FLAG 


READ Y POSITION 
;MASK GRAPH INC. 


LOAD BASE 
[LOAD EXPECTED DATA 
; COMPARE RESULT 
;;BR IF DELTA Y IS CORRECT 
; INCORRECT DELTA Y WITH CHAR SCALE OF 2 


: CHAR 
3; “'SPAC 


FARRER ERE REE EEAEEEEEEEKREEERKERKER EH 


i*TEST 67 


CHAR SCALE 1/2 - ROTATED - TEST DELTA X 


STREAK EEE ERE EERE REE RRR RKEKERKEKEEEREK EE 


017756 1S167: 
001202 


#67 ,STESTN 
001122 


XPOS, oy 
#BUFFER 
#155600, (RO) 
#116000, (RO) + 


4195060, (RO)+ 
PC EXECUTE 


rope SBDDAT 


024524 
161720 
176000 
001000 
$GDDAT , SBDDAT 
TST70 
26 


176000, $BDDAT 


:;SET TEST NUMBER IN APT MAIL BOX 
:SET UP REG ADRS 04 
LOAD BUFFER POINTER 
LOAD “STATUS C ROT. & CHAR SCALE 1/2°' 
;LOAD ‘POINT MODE" 
7X = 1000 
*¥ = 1000 
CHAR MODE 
;LOAD DISPLAY STOP 
; START DISPLAY AND WAIT FOR STOP FLAG 


READ X POSITION 
;MASK GRAPH INC. 


LOAD BASE 
LOAD gh, Ys 
; COMPARE RESU 


;;BR IF DELTA X IS CORRECT 


; INCORRECT DELTA X WITH CHAR SCALE OF 1/2 


'WeRARARAAERASLASALASZALLALAASALSSE SSAA RASS SARR RRR AAR ASRS SAR RR RASS SD 


S*TEST 70 


CHAR SCALE 1 - ROTATED ~ TEST DELTA X 


SAAR ARERR ERR EERE RARER ERE EERE EERE R AREER EEE REE EE 


TST70: 
#70, $TESTN 
XPOS, wy 
#BUF FER R 


#155640, (RO) + 


020130 #116000, (RO) + 


rt. 4 


TEST NUMBER IN APT MAIL BOX 
SET UP REG ADRS 04 
;LOAD INTER 
sLOAD ‘'STATUS C ROT. 
;LOAD ‘POINT MODE*’ 


& CHAR SCALE 1°" 


SEQ 0058 





4 
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C7VSBB.P11 10-SEP-79 11:32 T70 SCALE 1 = ROTATED = TEST DELTA X SEQ 0059 
2162 020134 012720 001000 MOV #1000, (RO)+ :x = 1000 
2163 020140 012720 001000 MOV #1000. (RO)+ ‘Y¥ = 1000 
2164 020144 012720 100000 MOV #100000 (RO) + 2CHAR, POOF 
2165 020150 012720 000012 MOV ROS+ LF’ @ “NULL 
2166 020154 012720 172000 MOV 4195000, (RO) * ‘LOAD DISPLAY STOP 
e167 020160 004737 024524 JSR PC EXECUTE ‘START DISPLAY AND WAIT FOR STOP FLAG 
2169 020164 017737 161574 001126 MOV @XPOS , SBDDAT :READ X POSITION 
2170 020172 042737 176000 001126 BIC #176000, $BDDAT ‘MASK GRAPH INC. 
2171 020200 012737 001000 001124 MOV #1000, $GDDAT [LOAD BASE 
2172 020206 063737 001752 001124 ADD LFS21.$GDDAT ;LOAD oF aoecas DATA 
2173 020214 023737 001124 001126 CMP $GDDAT , SBDDAT “COMPARE RESUL 
2174 020222 001401 BEQ TST71 ::BR IF DELTA xX IS CORR ECT 
e175 020224 104026 ERROR 26 s INCORRECT DELTA X WITH CHAR SCALE OF 1 
Avr FL REE REE EERE ERE ERE REEERE EERE ERE EH 
(3) s*TEST 71 CHAR SCALE 1 1/2 = ROTATED = TEST DELTA xX 
(3) 'MABDBEBASBERSAASAALASZSALEASLSESESRSLSA SER ER ESSERE RS SAR RSS REARS ARES SESE RRS SE SS 
(2) 020226 000004 $171: SCOPE 
(2) 020230 012737 000071 001202 MOV #71, $TESTN :SET TEST NUMBER IN APT MAIL BOX 
2178 020236 013737 001764 001122 MOV XPOS » S$BDADR SET UP REG ADRS 04 
2179 020244 012700 032530 MOV FER,RO :LOAD BUFFER POINTER 
2180 020250 012720 155700 MOV TSS 700, (RO) + SLOAD ‘'STATUS “bs ROT. & CHAR SCALE 1 1/2" 
2181 020254 012720 116000 MOV #116000. (RO) + [LOAD ‘POINT MODE"' 
2182 020260 012720 001000 MOV #1000, (RO) + =X = 1000 
2183 020264 012720 001000 MOV #1000, (RO)+ iY = win 000 
2184 020270 012720 100000 MOV #100000, (RO) + HAR MODE 
2185 020274 012720 000012 MOV #12, (RO)+ ee NULL"' 
2186 020300 012720 172000 MOV #173000, (RO) + “LOAD DISPLAY STOP 
44 4 020304 004737 024524 JSR PC, EXECUTE :START DISPLAY AND WAIT FOR STOP FLAG 
2189 020310 017737 161450 001126 MOV @aXPOS , SBDDAT ;READ X POSITION 
2190 020316 042737 176000 001126 BIC #176000, $BDDAT ‘MASK GRAPH INC. 
2191 020324 012737 001000 001124 MOV #1000, $GDDAT [LOAD BASE 
2192 020332 063737 001754 001124 ADD LFSZ2.$GDDAT LOAD EXPECTED DATA 
2193 020340 023737 0011246 001126 CMP $GDDAT , $BDDAT > COMPARE RESULT 
2194 020346 001401 BEQ TST72 ::BR IF DELTA X IS CORRECT 
195 020350 104026 ERROR 26 s INCORRECT DELTA X WITH CHAR SCALE OF 1 1//2 
2197 SDR EERE REE AEEEEREEEERERER ERE EERE EEK 
(3) T*TEST 72 CHAR SCALE 2 - ROTATED - TEST DELTA X 
(3) MARAE ASAESSAAAASAASZASLAESESL ESA SLASES ESE S SES SAAS SR ER ESAS SSE SE SARA R SS SY 
(2) 020352 000004 18172: SCOPE 
(2) 020354 012737 000072 001202 MOV #72, $TESTN :SET TEST NUMBER IN APT MAIL BOX 
2198 020362 013737 001764 001122 MOV XPOS, SBDADR “SET UP REG ADRS 04 
2199 020370 012700 032530 MOV #BUF FERRO LOAD BUFFER POINTER 
2200 020374 012720 155740 MOV #155740. (RO) + ZLOAD ‘'STATUS C ROT. & CHAR SCALE 2’ 
2201 020400 012720 116000 MOV #116000, (RO) + ‘LOAD ‘POINT MODE'' 
2202 020404 012720 001000 MOV #1000, (RO) + “xX = 1000 
2203 020410 012720 001000 MOV #1000. (RO)+ *Y¥ = 1000 
020414 012720 100000 MOV #100000, (RO) + ; CHAR, MODE 
2205 020420 012720 000012 MOV #12, (ROS+ "LF ® "NULL" 
2206 020424 012720 172000 MOV #172000, (RO) + ‘LOAD DISPLAY STOP 
5344 020430 004737 024524 JSR PC EXECUTE ;START DISPLAY AND WAIT FOR STOP FLAG 


2209 020434 017737 161324 001126 MOV @XPOS , SBDDAT READ X POSITION 
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CZ7VSBB.P11 


WW 
wevrveNOAUEW 


66 
020772 


10-SEP-79 11: 


176000 
001000 
001756 
001124 


00000 
020604 


001126 


001126 


001202 


001110 


001122 
001126 


001126 
001126 


001122 


001122 
001126 


001126 
001126 


032542 


7m 30G6(1063) 


; TEST 73 


—MORRBARESALALASALLALERALASSESLAS ESE SASSER ALARA SARA A RASA ADDS SDS 


73SET TEST NUMBER IN APT MAIL BOX 


18173: 


1$: 


2$: 


3$: 


4$: 


5$: 


SCOPE 


I 5 
17=SEP=79 08:46 PAGE 9-37 
CHAR SCALE 2 = ROTATED = TEST DELTA X 


#176000 , SBDDAT 
#1000, $GDDAT 
LFSZ3,$GDDAT 
SGDDAT , $BDDAT 
TST73 

26 


MASK _GRAPH INC. 
;LOAD BASE 


;LOAD EXPECTED DATA 


; COMPARE RESULT 


;;BR IF DELTA xX IS COR 


RECT 
; INCORRECT DELTA X WITH CHAR SCALE OF 2 


MOR RASERALLSLALASALSSL ESSE SASS EASA SERRE SAREE ASR SARA RASA RASA RR RASS SDS 


SEQ 0060 


TEST THAT SUPERSCRIPT ON & OFF CHANGES CHAR SCALE & DELTA X & Y(REPEAT R 


#73, Hd 
#BUFFER,RO 
#155340, (RO)+ 
#116000, (RO)+ 
Aye (RO) + 
#1000, (RO)+ 
#102000. ( (RO)+ 


4573000, (RO)+ 
#CSCL,RO 
#XPOSR,R3 
#YPOSR.R4 
ACSCLR.RS 
#3,R2 


#1,R1 
#1$,$LPERR 
PC EXECUTE 


@SREG1, $BDDAT 
#176377, $BDDAT 
SCDDAT. , $BDDAT 


43 
XPOS , SBDADR 
(R3) , SGDDAT 


ew. , SBDDAT 
43 
Re 


5$ 
#23 ,BUFFER+12 
#2,R3 


;LOAD ADRS POINTER 


:CHAR SCALE AND ROTATE TO BE UPDATED 


POINT MODE 
000 


7 ¥=1000 


CHAR MODE 
: SUPERSCRIPT ON - LATER SUPERSCRIPT ESCAPE 


RO POINTS TO ‘LD STATUS C' — FOR SCALE 
:R3 POINTS TO EXPECTED X DELT 

:R4 POINTS TO EXPECTED Y DELTA 

:R5 POINTS TO EXPECTED CHAR SCALE 

;R2 WHEN ZERO SAYS TO SET UP SUPERSCRIPT ESCAPE 
3R1=0 SAYS ROTATE, R1=-1 SAYS NEXT TEST 


SET UP SCOPE LOOP ADRS 


3; START oo AND WAIT FOR STOP FLAG 


;SET UP REG 12 


:LD EXPEC 


TED CHAR SCALE 


SREAD CHAR SCALE 


7 SAVE ONL 
; CORRECT? 


BR IF SO 
; SUPERSCRIPT an TO CHANGE CHAR SCALE 


Y CHAR SCALE 


SET UP REG ADRS 


:LD EXPEC 


TED DELTA xX 


[READ X DELTA 


:BR IF SO 
2 SUPERSCRIPT DELTA Y ER AT CHAR SCALE IN REG 72 
IME TO TURN ON SUPER ESCAPE? 


BR IF NOT OR ON ALREADY 


NOW SET 

UPDATE X 
UPDATE Y 
UPDATE S 


UP SUPER ESCAPE 
DELTA PTR 
DELTA PTR 

CALE PTR 
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CZVSBB.P11 10-SEP-79 11:32 173 T THAT SUPERSCRIPT ON & OFF CHANGES CHAR SCALE & DELTA X & Y(REPEAT RO SEQ 0061 
2261 020776 012037 032530 MOV (RO) + ,BUFFER ;SET_ UP NEXT CHAR SCALE AT INSTR LOC 
621002 005701 TST R1 THIS PASS ROTATED? 

2263 021004 001003 BNE 6$ BR IF NOT 
2264 021006 052737 000400 032530 BIS #400 ,BUFFER 7 YES - SET CHAR ROTATE BIT AT INSTR LOC 
2265 021014 005715 6$: TST (R5) HAVE WE os SUPER AND SUPER ESCAPE? 

2266 021016 100272 BPL 1$ “BR IF NO 

2267 021020 005301 DEC R1 WILL REPEAT TEST ROTATED NOW 

2268 021022 100464 BMI TST74 :eNEXT TEST IF ROTATED SUPERSCRIPT ALREADY DONE 
2269 021024 012705 021066 MOV ACSCLR,RS :RESET ead og CHAR SCALE PTR 

2270 021030 012702 000003 MOV #3,R2 SET R3 = TELLS WHEN TO SWITCH TO SUPER ESCAPE 
2271 021034 012737 000021 032542 MOV #21 ,BUFFER+12 RESET SUPER iN FILE 

2272 021042 012703 021144 MOV #XPOSRR .R3 7R3 POINTS TO EXPECTED X DELTA WHEN ROTATED 
2273 021046 “12704 021160 MOV #YPOSRR ,R4 :R4 POINTS TO EXPECTED Y DELTA WHEN ROTATED 
2274 021052 012700 021102 MOV ACSCL.RO ;RESET PTR TO ‘LD STATUS C* INSTRS (SCALE) 
2275 021056 012737 155740 032530 MOV #155740,BUFFER ;SET UP CHAR SCALE INSTR THIS TIME ROTATED 
sor6 021064 000647 BR 1$ ;REPEAT TEST ROTATED NOW 
2278 021066 001000 CSCLR: 1000 ; TABLE OF EXPECTED CHAR SCALE RESULTS 

2279 021070 000400 400 
22 021072 
2281 021074 000400 400 
2282 021076 001000 1000 
seer 021100 001400 1400 
2285 021102 155300 CSCL: Ageage ; TABLE OF CHAR SCALE INSTRS 

2286 021104 155240 155240 
2287 021106 155200 155200 
2288 021110 155240 155240 
2289 021112 155300 155300 
2291 021114 000775 XPOSR: 775 EXPECTED SUPERSCIPT DELTA X RESULTS 

2 021116 000774 774 

2293 021120 000776 776 
2294 021122 001002 1002 
2295 021124 001000 1000 
2296 021126 001000 1000 
3398 
2299 021130 001030 YPOSR: 1030 EXPECTED SUPERSCRIPT DELTA Y RESULTS 

2300 021132 001022 1022 
2301 021134 001011 1011 
2302 021136 00076 767 
2303 021140 000756 756 
Seo¢ 021142 000750 750 
2306 021144 000750 XPOSRR: 750 EXPECTED SUPERSCRIPT DELTA X ROTATED RESULTS 

2307 021146 000756 756 
2308 021150 000767 6 

309 021152 001011 1011 
2310 021154 001022 1022 
Sei3 021156 001030 1030 
2313 021160 001000 YPOSRR: 1000 EXPECTED SUPERSCRIPT DELTA Y ROTATED RESULTS 

2314 021162 000774 774 
2315 021164 000776 776 


2316 021166 001002 1002 
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CZVSBB.P11 10-SEP-79 11:32 173 TEST THAT SUPERSCRIPT ON & OFF CHANGES CHAR SCALE & DELTA X & Y(REPEAT RO SEQ 0062 


2317 021170 001000 1000 
seis 021172 001000 1000 
2320 SII ISISIOIIOIIOIOIUIDICIIIIIUIDISIIIOIOISIOIOIIOIOIOIOIOIOIIIOIOIOI IOI TT TTT TE TOT TO TOTE 
(3) TATEST 74 TEST THAT SUBSCRIPT ON & OFF CHANGES CHAR SCALE & DELTA X & Y(REPEAT ROT 
(3) SII ISIS IIIOIUIII I IUIOIIIIOIOIOIOIOI III I TOT OTT TTT TOT TOTTI TTT TE 
(2) 021174 000004 18174: SCOPE 
(2) 021176 012737 000074 001202 MOV #74, ,STESTN 3;SET TEST NUMBER IN APT MAIL BOX 
2321 021204 012700 032530 MOV #BUF FER ,RO ;LOAD POINTER ADRS 
2322 021210 012720 155340 MOV #155340,(RO)+ ;CHAR SCALE AND ROTATE TO BE UPDATAED 
2323 021214 012720 116000 MOV #116000,(RO)+ ;POINT MODE 
2324 021220 012720 001000 MOV #1000, (RO) + :X=1000 
2325 021224 012720 001000 MOV #1000, (RO) + :¥=1000 
2326 021230 012720 102000 MOV #102060, <no+ ;CHAR MODE 
2327 021234 012720 000022 MOV ; SUBSCRIPT ON = LATER SUBSCRIPT ESCAPE 
2328 021240 012720 172000 MOV #173000, (RO) + ; STOP 
2329 021244 012700 021102 MOV ACSCL,RO RO POINTS TO "LD STATUS C* INSTRS FOR SCALE 
2330 021250 012703 021564 MOV #XPOSR1 ,R3 3R3 POINTS TO EXPECTED X DELTA RESULTS 
2331 021254 012704 021600 MOV #YPOSR1 ,R4 3R4 POINTS TO EXPECTED Y DELTA RESULTS 
2332 021260 012705 021066 MOV ACSCLR,RS5S RS POINTS TO EXPECTED CHAR SCALE 
2333 021264 012702 000003 MOV #3,R2 zR2 WHEN 0 SAYS TO SET UP SUB ESCAPE 
2334 021270 012701 000001 MOV #1,R1 3R1=0 SAYS ROTATE, R1=-1 SAYS NEXT TEST 
Stee asi $n3 012737 021302 001110 8 MOV #1$,$LPERR SET UP SCOPE LOOP ADRS 
(1) 021302 004737 024524 JSR PC ,EXECUTE ;START DISPLAY AND WAIT FOR STOP FLAG 
2337 021306 013737 001772 001122 MOV SREG1, $BDADR ;SET UP _REG ADRS 12 
2338 021314 011537 001124 MOV (R5) ,SGDDAT LD EXPECTED CHAR SCALE 
2339 021320 017737 160446 001126 MOV @SREG1,$BDDAT  ;READ CHAR SCALE 
2340 021326 042737 176377 001126 BIC #176377,$BDDAT SAVE ONLY SCALE 
2341 021334 023737 001124 001126 CMP SGDDAT. $BDDAT ; CORRECT? 
2342 021342 001401 BEQ 2$ : F SO 
2343 021344 104043 ERROR 43 ;SUB SCRIPT FAILED TO CHANGE CHAR SCALE 
2344 021346 013737 001764 001122 2$: MOV XPOS , SBDADR ;SET_UP REG ADRS 04 
2345 021354 011337 001124 MOV (R3) , SGDDAT LD pif X DELTA 
2346 021360 017737 160400 001126 MOV XPOS , SBDDAT READ DELT 
2347 021366 042737 176000 001126 BIC #176000, SBDDAT 3: SAVE ONLY DELTA x 
2348 021374 023737 001124 001126 CMP SGDDAT,SBDDAT CORRECT? 
2349 021402 001401 BEQ 3$ BR IF SO 
2350 021404 104043 ERROR 43 7 SUBSCRIPT DELTA X ER AT CHAR SCALE IN REG 12 
2351 021406 013737 001766 001122 3$: MOV YPOS , $BDADR :SET_UP REG ADRS 06 
2352 021414 011437 001124 MOV (R4) , SGDDAT 3LD yitie DELTA Y 
2353 021420 017737 160342 001126 MOV @YPOS , SBDDAT READ DELTA 
2354 021426 042737 176000 0067126 BIC #176000,$BDDAT SAVE ONLY DELTA Y 
2355 021434 023737 001124 001126 CMP $GDDAT,$BDDAT CORRECT? 
2356 021442 001401 BEQ 4$ BR IF SO 
2357 021444 104043 ERROR 43 tina DELTA Y ER AT CHAR SCALE AT REG 12 
2358 021446 005302 4$: DEC R2 TIME TO SWITCH TO SUB ESCAPE? 
2359 021450 001003 BNE 5$ TBR IF NOT OR ON ALREADY 
2360 021452 012737 000024 032542 MOV #24,BUFFER+12 ;NOE SET UP FOR SUB ESCAPE 
2361 021460 062703 000002 5$: ADD #2 ,R3 [UPDATE X DELTA RESULT PTR 
2362 021464 062704 000002 ADD #2,R4 UPDATE Y DELTA RESULT ree 
2363 021470 062705 000002 ADD #2,R5 UPDATE CHAR SCALE RESUL 
2364 021474 012037 032530 MOV (RO) +,BUFFER SET UP NEXT CHAR SCALE Ar INSTR LOC 
tod p51 208 005701 ha R1 THIS PASS ROTATED? 


366 001003 6$ BR IF NOT 
2367 021504 052737 000400 032530 BIS #400 ,BUFFER ZYES = SET CHAR ROTATE BIT AT INSTR LOC 
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68: (R5) ZHAVE WE DONE SUB AND SUB ESCAPE? 
R1 SWILL REPEAT TEST NOW ROTATED 
TST75 NEXT TEST IF ROTATED SUBSCRIPT ALREADY DONE 
#CSCLR, R5 RESET EXPECTED CHAR SCALE 
# “RESET R2 = TELLS WHEN TO SuItcH TO SUB ESCAPE 
032542 ee BUF FER+12 ;RESET SUB IN FILE 
AXPORR1 ,R3 R3 POINTS TO EXPECTED X DELTA ROTATED 
AYPORR RG “RG POINTS TO EXPECTED Y DELTA ROTATED 
021102 ‘RESET PTR TO "LD STATUS C' INSTRS (SCALE) 
155740 032530 #125940, BUFFER ‘SET CHAR SCALE INSTR THIS TIME ROTATED 
1$ ‘REPEAT TEST CAHR ROTATED 


EXPECTED SUBSCRIPT DELTA X RESULTS 


Yssenears 


YPOSR1: ; EXPECTED SUBSCRIPT DELTA Y RESULTS 


021612 
021614 : EXPECTED SUBSCRIPT DELTA X ROTATED RESULTS 
001006 


EXPECTED SUBSCRIPT DELTA Y ROTATED RESULTS 


CR RII IOROOIOIIOIOIIOIOIOIOIOI IORI III OT TOT TTT ITA IIASA AIS IIS IIS ISSIAAA A 
ATEST 75 TEST THAT ‘'CR'' DOES CHANGE X AND DOES NOT CHANGE Y AXIS 
SIC ISIISISII ICID IIOIOICICIIOIOIUISIOIIICIDIOIOIIIOIDIOIDIOIOIOIOII OI IOISISII I OIOIOI III III TE 
18175: 
000075 001202 #75, ,$TESTN 7zSET TEST NUMBER IN APT MAIL BOX 
001764 001122 XPOS , $BDADR SET UP REG ADRS 04 
3253 #BUF FER ,RO [LOAD BUFFER POINTER 
#155240,(RO)+  ;LOAD CHAR SIZE 1 
;POINT MODE 
;LOAD BUFFER 


“LOAD ‘'CHARACTER MODE"' 
A "'cR'' 


(RO) + LOAD 
4175060, (RO)* ‘LOAD DISPLAY STOP 
021722 004737 024524 PC EXECUTE 7START DISPLAY AND WAIT FOR STOP FLAG 
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021726 017737 1$: @aXPOS , SBDDAT sREAD X AXIS 
0217 005037 S$GDDAT _;LOAD EXPECTED 
ELE aA  pppsetpammpaned 4 ; COMPARE EXPCT TO RCVD 
104022 22 :"'CR'' CHARACTER FAILED TO CHANGED X AXIS CORRECTLY 
021752 000421 BR TST76 33 


021754 017737 16 : @YPOS,$BDDAT ;READ Y AXIS 
2737 #176000,$8DDAT MASK TO BITS 0-9 
AT LOAD EXPECTED 
OMPARE EXPCT TO RCVD 
TST76 ::BR IF EQUAL 
022006 YPOS , $BDADR :SET UP REG ADRS 06 
022014 22 'CR'' CHARACTER CHANGED Y AXIS 


FARRER EROREEEER EH 


TRTEST 76 TEST THAT ‘BS'' (NOT ROTATED) DOES CHANGE X BUT NOT Y AXIS 


MASA AASASASLAASLALALAALASARSARELASLESESSA SALAS ELE SARA AS AREER SRSA SS 


022016 000004 18176: 


casten he 73SET TEST NUMBER IN APT MAIL BOX 
#155240, (RO)+ ; LOAD NO ROT CHAR SIZE = 
MODE 


; “LOAD R 
: 1000, 1000 
;LOAD ‘'CHARACTER MODE"’ 


;LOAD DISPLAY STOP 
START DISPLAY AND WAIT FOR STOP FLAG 
aXxPOS , $8 READ X AXIS 
#1000 ,$GDDAT LOAD EXPECTED 
CHSZ1,$GDDAT sADJUST EXPECTED 
SCDDAT, SBDDAT ; COMPARE 


2 e YES 
YPOS , S$BDADR SET UP REG ADRS 06 
— 7''BS'' CHARACTER FAILED TO CHANGED X AXIS CORRECTLY 


@YPOS,$BDDAT ;READ Y AXIS 
#176000, $BDDAT MASK TO BITS 0-9 
+1000. $GDDAT LOAD EXPECTED 
SCDDAT , SBDDAT s COMPARE EXPCT TO RCVD 


$ YES 
XPOS , SBDADR 7SET UP REG ADRS 04 
2 7" BS'* CHARACTER CHANGED Y AXIS 
TST77 2: 
7 TEST THAT ‘‘SHIFT-OUT’’ STATUS BIT IS NOT SET 


017737 157554 3$: MOV @SREGO, $BDDAT READ STATUS 
pel 000100 #100, SBDDAT 


4 TST7 33;BR IF EQUAL 
013737 001762 001122 SREGO, $BDADR SET UP REG ADRS 02 
022226 104035 35 SHIFT OUT STATUS BIT IS SET 
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2472 


022354 
022356 
022364 
022372 
022400 
022420 
022422 
022430 

2436 


02 
022440 
022446 


022450 


022524 
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017737 
032737 


001404 
013737 
104035 


000004 
012737 
012737 


012737 


012720 


11:32 


037416 


001202 


901122 


001126 
001126 


001122 


001166 
001202 


177776 
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TEST THAT ‘BS'' (ROTATED) DOES CHANGE Y BUT NOT X AXIS 


SERA RARER ERE ER ERE EKRERRRERRE RE 


s*TEST 77 


TEST THAT ‘BS'' (ROTATED) DOES CHANGE Y BUT NOT X AXIS 


RARER 


1S177: SCOPE 


1$: MOV 


2$: MOV 


MOV 
ERROR 
BR 


#77 ,STESTN 33SET TEST NUMBER IN APT MAIL BOX 
#BUF FER ,RO 
#155640, (RO)+ iy a ROTATE CHSIZE = 

000 ;POINT MODE 


SEQ 0065 


#116000,(RO)+ : 

#1000, (RO) + TLOAD BUFFE 

#1000, (RO)+ 1000, 1000 

#100000, (RO)+ LOAD ''CHARACTER MODE'’ 

#10,(RO)+ 

#172000, (RO)+  ;LOAD DISPLAY STOP 

PC EXECUTE 7START DISPLAY AND WAIT FOR STOP FLAG 
@YPOS,$BDDAT  ;READ Y AXIS 

#176000, $8DDAT 

#1000, SGDDAT ;LOAD EXPECTED 

CHSZ1.$GDDAT  ;ADJUST EXPECTED 

SDDAT ,SBDDAT : COMPARE 

YPOS , SBDADR T UP REG ADRS 06 

22 100 :*BS"" (ROTATED) CHARACTER FAILED TO CHANGED Y AXIS CORR 


@aXPOS , $BDDAT sREAD X AXIS 

#176000, $BDDAT MASK TO BITS 0-9 

#1000, $GDDAT ;LOAD EXPECTED 

SGDDAT , SBDDAT COMPARE EXPCT TO RCVD 


3$ YES 
XPOS , SBDADR :SET UP REG ADRS 04 
TST100 :'BS*' (ROTATED) CHARACTER CHANGED Y AXIS 


TEST THAT ‘‘SHIFT-OUT'' STATUS BIT IS NOT SET 


3$: MOV 


@SREGO, $BDDAT READ STATUS 

#100, $8DDAT 

TST100 373BR IF EQUAL 

SREGO, $BDADR 7SET REG ADRS 02 

35 SHIFT OUT STATUS BIT IS SET 


J LEAR RRR EEKEEREREEEEKEEEEEREEKEEEKREEREEREKEEREEREKEEEKERERK EE 


;*TEST 100 


TEST THAT ‘‘SHIFT-OUT’* GENERATES A STATUS BIT 


SERRA EREKEKEKEEREKEEKEKEKEKKKEEEKEKEKEKEKKEEEEEAKKEE 


TST100: SCOPE 
MOV 


#100, at D0 100 ITERATIONS 
#100, $TESTN : TEST NUMBER _IN APT MAIL BOX 


MOV SET 
;SHIFT-OUT <LOW BYTES. FOLLOWED BY CODE 77 <HIGH BYTE> 


op 8 ;RAISE PRIORITY 
#BUFFER,RO ;LOAD BUF FER POINTER 
#172000, (RO) + SLOAD ‘ST’ 


#116000, (RO)+ POINT MODE 
#1000, (RO) + ;1000,1000 


#100000, (RO) + ZLOAD’"'CHARACTER MODE"’ 
#37416,(RO)+ | :'’SHIFT-OUT’’ IN LOW BYTE #77 IN HIGH BYTE 


C7VS8B == se” NST 


SEPLyd 38 


CZ7VS8B.P11 


2519 


022704 
022712 
022714 


022716 


000004 
012737 
012737 


000017 
172000 
024524 
000001 
SESS 
1571 F176 
001777 

001124 
001766 


157134 
000100 
000100 


001762 


157100 
001000 
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TEST THAT “‘SHIFT=OUT"’ GENERATES A STATUS BIT 


#17, (RO)+ 
#172000. {R00 


Seppar, , SBDDAT 
YPOS , SBDADR 
TST101 

@SREGO, SBDDAT 
#8116, $GDDAT 
#100, $8DDAT 
SREGO, $BDADR 
TST101 
@XPOS , SBDDAT 
#1000, $GDDAT 
SCDDAT . SBDDAT 
XPOS , SBDADR 
TST101 

@YPOS ,SBDDAT 
#176000, $8DDAT 
#1000, $GDDAT 
SGDDAT , $BDDAT 


4$ 
YPOS , SBDADR 
22 


PC ,EXECUTE 
@SREGO, SBDDAT 


S$GDDAT 

oe! T6,$BDDAT 
SREGO, $BDADR 
35 


ZLOAD ‘'SHIFT=IN"’ 

[LOAD DISPLAY STOP 

7START DISPLAY AND WAIT FOR STOP FLAG 
TENABLE NO FLAG EXIT 

[RESUME DISPLAY AND WAIT FOR STOP FLAG 


READ CHARACTER REG 
sMASK TO BITS 10-15 
COMPARE EXPCT TO RCVD 


SET UP _REG ADRS 06 
; CHARACTER REGISTER IN ERROR 


ee 
oe 


READ STATUS REGISTER 
;LOAD EXPECTED 


7SET UP REG ADRS 02 
2 SHIFT OUT STATUS BIT FAILED TO SET 


READ X POS 
;LOAD EXPECTED 
COMPARE EXPCT TO RCVD 


SET UP REG ADRS 04 
: SHIFT~OUT CHARACTER CHANGED X AXIS 


READ Y POS 


[MASK 
TOAD EXPECTED 

; COMPARE EXPCT TO RCVD 
7 7BR IF EQUAL 


SET UP REG ADRS 06 
;SHIFT-OUT CHARACTER CHANGED Y AXIS 


START DISPLAY AND WAIT FOR STOP FLAG 
;READ STATUS 
CLEAR EXPECTED 

TEST IF SHIFT-OUT SET 
7;BR IF ZERO 


SET UP REG ADRS 02 
:SHIFT-OUT STATUS BIT FAILED TO CLEAR 


DL TAREE EEE KKEEEKEEEEEEREEEEEEEEEEEEEKEEKEKKE 


TEST THAT ‘‘SHIFT-OUT’’ DOES NOT GENERATE A STATUS BIT ON CODE 0-37 


LARA REAR AEEREEREKEEEREEEE KERR EEREEEEEEEEEREEREREKEKEK 


MOV 
MOV 
JSR 
024632 MOV 
JSR 
001124 MOV 
091126 MOV 
11 BIC 
001126 CMP 
BEQ 
001122 MOV 
ERROR 
001126 1$: MOV 
001124 MOV 
001126 BIT 
BNE 
001122 MOV 
ERROR 
001126 2$: MOV 
001124 MOV 
001126 CMP 
BEQ 
001122 MOV 
ERROR 
001126 3$: MOV 
001126 BIC 
001124 MOV 
001126 CMP 
BEQ 
001122 MOV 
ERROR 
4$: 
JSR 
001126 MOV 
CLR 
001126 BIT 
BEQ 
001122 MOV 
ERROR 
5$: RESET 
i*TEST 101 
TST101: SCOPE 
001166 MOV 
001202 


#100, STIRES 
#101, $TESTN 


:2D0 100 ITERATIONS 
: NUMBER IN APT MAIL BOX 


MOV sSET TEST 
; ('SHIFT-OUT’* FOLLOWED BY CODE 0 THRU 37 EXCEPT #17) 


SEQ 0066 


CZ7VS88 =~ 


vS60 Nae ag HS TEST 


CZ7VSBB.P11 


023154 
023156 
023160 


02 
023174 
02320 
023210 


023216 
023224 
02 


10-SEP-79 11:32 


012737 
01 


000004 
012737 
012737 


012777 
012777 
012737 
004737 
012737 
017737 
032737 
001005 
013737 
104036 
000421 
017737 


172000 
000001 
024524 


000100 
156512 
000100 
001762 
156466 
Pere 


00090 
001124 
001766 
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7101 TEST THAT “‘SHIFT=OUT’’ DOES NOT GENERATE A STATUS BIT ON CODE 0-37 


001726 


156622 


001126 
001126 


001122 


001727 
001727 


001202 


177776 


156474 


001122 


1$: 


2$: 


;LOAD POINTER 

:SET "CHAR® MODE 

; LOAD Ppa INTO THE LOW BYTE 
LOAD STOP 


;LOAD DISPLAY BUFFER 

START DISPLAY AND WAIT FOR STOP FLAG 
READ STATUS 
:TEST FOR SHIFT BIT 


;SET UP REG ADRS 02 
; SHIFT STATUS BIT SET IN ERROR 


s TEST FOR #17 (SHIFT=-IN) 
;7BR AND TRY AGAIN 


7 7BR BACK IF NOT #40 


RARER EEEREREKEAEEREKEEKREEEEEKEEKRKEKEEREKEREEKEEEKEKE 


TEST THAT ‘SHIFT-OUT’ IN THE HIGH BYTE FOLLOWED BY A CHARACTER 


J AAA EERE OREEEKEEEEKEEERERERKEKEERAEKEKEEKEERREEEEEEEKEEH 


tt 
8 


1$: 


73SET TEST NUMBER IN APT MAIL BOX 


SET "CHAR" MODE 

*SHIFT-OUT' INTO THE HIGH BYTE 

A SHIFT-OUT CHARACTER IN THE NEXT 
pn BYTE> 


sSET NO FLAG EXIT 
START DISPLAY AND WAIT FOR STOP FLAG 


EXPECTED 
READ STATUS 
TEST THE STATUS REGISTER 


SET UP REG ADRS 02 
;SHIFT-OUT IN THE HIGH BYTE FAILED TO SET STATUS BIT 


oe 
ee 


;LOAD 


READ Y POS 
MASK TO BITS 15-10 
LOAD EXPECTED 
; COMPARE EXPCT TO RCVD 
F EQUAL 


;BR I 
“SET UP_REG ADRS 06 


MOV #16, DSAVE 
MOV #BUFFER,RO 
MOV ry *(RO)+ 
MOV #16, (RO)+ 
MOV #172000, (RO) + 
MOV DSAVE , @DBUF 1 
JSR PC EXECUTE 
CLR SGDDAT 
MOV @SREGO, SBDDAT 
gi #100, $BDDAT 
MOV SREGO, SBDADR 
ERROR 
TST102 

INCB  —C—DSAVE+1 
CMPB so #17, DSAVE +1 
BEQ $ 
CMPB so #40 , DSAVE +1 
BNE 1$ 

TEST 102 

1102: SCOPE 
MOV #102, $TESTN 

IN THE NEXT LOW BYTE GENERATES A STATUS BIT 
MOV #340 PSW 
MOV  @DBU 
MOV +7000. @DBUF 1 
MOV #40, aDBUF 2 
MOV #172000, @DBUF 3 
MOV #1,NOF LAG 
JSR PC EXECUTE 
MOV #8116, $GDDAT 
MOV @SREGO, SBDDAT 
BIT #100, $BDDAT 
BNE 1$ 
MOV SREGO, $8DADR 
ERROR 

TST103 

MOV @YPOS , SBDDAT 
BIC #1777. $BDDAT 
MOV #81115, $GDDAT 
CMP SGDDAT, SBDDAT 
BEO 7103 
MOV YP0S.SBDADR 
ERROR 21 


; CHARACTER REGISTER IN ERROR AFTER A 
SH IFT-OUT’’ <HIGH BYTE> FOLLOWED BY 
: #40 <LOW BYTE NEXT WORD> 


SEQ 0067 


CZVSBB == 


VS60_ INSTRUCTION TEST PART II 


CZ7VSBB.P11 


2621 
262 


023572 
023574 

3600 
023602 
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012716 
000002 
013777 


012777 


00004 

172000 
000001 
024524 


177677 
001762 


172000 
001736 
000040 
177776 
156174 


023602 
002022 


001122 


001126 


156210 


me 306 (1063) 
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7102 TEST THAT ‘SHIFT-OUT" IN THE HIGH BYTE FOLLOWED BY A CHARACTER 


MOR ARERASSAASZLLESLASALASASA ASSES ASAE RRR SARA R RRR R RAR RRA ASAD DD 


TEST THAT RESET WILL CLEAR "SHIFT-OUT* STATUS BIT 


MOR AAAAASRARASALSALELL LASALLE ELAR AAAS RR RR RRR RRA ER RRA ARRAS DSS 


3;D0_ 40 ITERATIONS 
ty TEST “+ IN APT MAIL BOX 


S*TEST 103 
1$1103: SCOPE 


S*TEST 104 
TST104: SCOPE 


1$: MOV 
RTI 
2$: MOV 


#40,$TI 
mi08. ste STESIN 


#40 


#1,NOFLA 

PC, EXERUTE 
$GDDA 

scReeo SBDDAT 
#1 77677, SBDDAT 


TST104 
. . SBDADR 


#104, $TESTN 
#340 ,PSW 


#1$, ADDONE 
#173400,BUFFER 
DBUF , aDPC 


RO,PSW 


@SREGO, $BDDAT 
#81105 

#2$, (SP) 
DDONE 1 , ADDONE 


R+4 
7175000, BUFFER* 


RAISE PRIORIT 
7SET UP_REG ae" ADRS 
;LD_CHAR_ INSTR 
:SET UP FOR SHIFT OUT 


NO FLAG EXIT 
SSTART DISPLAY 


ZCLR SHIFT OUT 
sEXPECT 0 
sREAD REG 02 


SAVE ONLY SHIFT-OUT 


7sNEXT TEST IF CLEARED 
SET UP REG ADRS 02 
RESET FAILED TO CLR SHIFT-OUT 


EKER EEEEEKEEEEREKEKEREEKEEKRKEEKEKEEKERRERKKEKEEKEEK 


INTERRUPT PRIORITY TEST (DEVICE LEVEL -1) 


SL RARER ERR REE RERERREREREEERE EERE EEKR EH 


eH TEST yon IN APT MAIL BOX 


RAISE CPU S 
; SET INTERRUPT "aporEss. 
SET ‘'STOP AND INTERRUPT'’ INSTR 


LOAD THE DISPLAY P.C. 


ADRS 02 
SEXPECT STOP, MODE & INTENSITY BITS 
GET BUS PRIORITY. 


“MAKE ONE LOWER 
SLOWER PRIORITY TO DEVICE LEVEL -1 
: «e® HERE IF NO INTERRUPT *** 


GET REG 02 


NO STOP INTERRUPT ON BR LEVEL INDICATED -1 
;;BR TO NEXT TEST 


ean © FIX STACKED PC... 
AND DISMISS INTERRUPT. 
TRESET VECTOR 


RRA REKEREEERAEEKEEEREERERAEKKEREREKEKEEKEEREKKEKERREKEREKEKEKEKKEKEKEEE 


INTERRUPT PRIORITY TEST (DEVICE LEVEL) 


SAREE EERE ERE EEE EERE EREREREKEKEEKEEREEREREKEKR EH 


t*TEST 105 
1ST105: SCOPE 


#105, $TESTN 
SREGO, $BDADR 
#172000. $GDDAT 
#340,PSW 

#1$, aDDONE 


;;SET TEST NUMBER IN APT MAIL BOX 
;SET UP REG ADRS 02 

;EXPECT STOP, MODE & INTENSITY BITS 
; RAISE CPU STAT. 


; SET INTERRUPT ADDRESS. 


SEQ 0068 


CZ7VSBB == VS60 wt he TEST 


CZVS8B.P11 


023722 
023724 


023752 
023754 


023770 
023776 
024000 
02 

024050 


024054 
024056 
024062 


024122 


10-SEP-79 1 


012737 
013777 


012716 
00000 

017737 
104034 
000425 
012777 
005037 
000240 
000240 
017737 
104034 
000411 
012716 
000002 
012737 
013777 


1:32 
173400 
001712 


001736 


023712 
156044 


023754 
177776 


156014 


023762 


000340 
002022 


100000 
077577 
172000 


000001 
000107 


001122 


PART [1 


032530 
156074 


177776 


001126 


156066 


001126 


177776 
156022 


001166 


032530 
032532 
032534 


001166 
001202 


s 
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T105 INTERRUPT PRIORITY TEST (DEVICE LEVEL) SEQ 0069 
MOV #173400,BUFFER ; SET ‘'STOP AND INTERRUPT’ INSTR 
MOV DBUF , aDPC 
NOP 
NOP 
MOV BRLEV1,PSW ;LOWER PRIORITY TO DEVICE LEVEL 
A ; *** SHOULD NOT INTERRUPT *** 
BR 3$ ; IT DIDN'T, CONTINUE. 
1$: MOV #2$, (SP) ; IT DID, FIX PC... 
RTI DISMISS... 
2$: MOV @SREGO, $BDDAT :G1VE THEM REG 02 
ERROR 34 ae INTERRUPTED ON THE WRONG BR LEVEL 
BR TST106 NEXT TEST 
3$: MOV #4$ , ADDONE ; CHANGE INTERRUPT ADDRESS. 
CLR PSW ;LOWER PRIORITY LEVEL 
8 ; *** SHOULD INTERRUPT *** 
N 
MOV @SREGO,$BDDAT ; DIDN'T, GIVE THEM REG 02 
ERROR 34 ;VS60 STOP FAILED TO INTERRUPT AFTER LOWERING PRIORITY 
BR TST106 7 sNEXT TEST 
4$: MOV #5$, (SP) ; OK, FIX PC... 
RTI 3.2 -DISAISS... 
5$: MOV #340 ,PSW RAISE TO HIGHEST PRIORITY BEFORE ADVANCING 
MOV DDONE1,@DDONE =; AND RESET DONE VECTOR. 


FD EEK EKER EKER KEKE EKER ERE REE EEEEKEKKK EK KH 


i*TEST 106 RESET CLEARS CHARACTER REGISTER 


JL ERE EEK EEE EEE EEE EKER EERE KKK 


TST106: SCOPE 
MOV #100, $TIMES 3:DO0_ 100 ITERATIONS 
MOV #106, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 


MOY YOS-SBDADR =: SET_UP REG ADRS_ 06 

CLR = @STKPT LOWER MAINT SWITCHES 

MOV #100000 ,,BUF F 

Mov =- #77577, BUFFER. 2, ;LOAD A '177** CHARACTER 

MOV #172000, BUFFER 

JSR PC, EXECUTE ;START DISPLAY AND WAIT FOR STOP FLAG 

RESET 

LR $GDDAT CLEAR EXPECTED 

MOV @YPOS,S$BDDAT =: READ CHAR REG 

BIC #1777, SBDDAT 

BEQ = TST107 ::BR iF CLEARED 

ERROR 32 RESET ‘‘INIT'' FAILED TO CLEAR CHARACTER REGISTER 
FD REE REE REE EEE EKER EERE EEE KEKE EEE KEE EEK 
:*TEST 107 TEST THE 'FRAMES PER SECOND’ SYNC FEATURE - START 210 FOR EXT SYNC TSTIN 


DDR ERE EERE EKER EKER EKER EKER EEE REE ERE EERE 
1ST107: SCOPE 
MOV #1,$TIMES ::D0 1 ITERATION 
MOV #107, $TESIN S:SET TEST NUMBER IN APT MAIL BOX 
RESET : INITAIALIZE SYSTEM 
CLR $BDADR :TYPEOQUT DATA NOT APPLICABLE 











6 
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CZ7VSBB.P11 10-SEP-79 11: 1107 THE "FRAMES PER SECOND’ SYNC FEATURE = START 210 FOR EXT SYNC TSTING SEQ 0070 























































024126 e $GDDAT 3N/ 
1 03 #BUF FER ,RO SET UP_ADRS FOR INSTRS 

2713 024142 012720 170000 MOV #170000,(RO)+ LD STATUS A (SYNC INSTR) 
2714 024146 012720 172000 MOV #172000,(RO)+ ;LD STOP INSTR 
2715 024152 012720 170000 MOV #170000,(RO)+ [LD yg it LD: STATUS A INSTR 
2716 024156 012720 172000 MOV #172000,(RO)+ STOP INSTR 
2717 024162 012702 024346 MOV #TMSAV ,R2 7SET UP 7 FOR SYNC COUNTS 
2718 024166 005000 1$: CLR RO = CLR SYNC TIMER 
2719 024170 012777 032530 155562 MOV ABUF FER, aDPC TART 
2720 024176 005200 2$: INC RO “COUNT SYNC_TIMER 
2721 024200 001413 BEQ 4$ [SHOULD NEVER OVFLO = NO SYNC TMG 
2722 024202 005777 155554 TST @SREGO [DONE SET? 
2723 024206 100373 BPL 2$ :BR_IF NOT 
2724 024210 005000 CLR RO CLR TIMER 
2725 024212 005277 155542 INC aDPC ;RESUME = NOW NPR REQ IN SYNC WITH INTERNAL OSC 
2726 024216 005200 3$: INC RO ; COUNT TIMER 
2727 - 024220 001403 BEQ 4$ ; SHOULD NEVER OVFLO - NO SYNC TIMING 
2728 024222 005777 155534 TST @SREGO SHAS Fam — PICKED UP YET? 
2729 024226 100373 BPL 3$ BR IF 
2730 024230 010022 4$: MOV RO, (R2)+ ; SAVE TIMER RESULTS 
2731 024232 062737 000004 032534 ADD #4 ,BUFFER+4 >SET UP NEXT SYNC 
2732 024240 062737 000004 032530 ADD #4 BUFFER SET UP NEXT SYNC 
2733 024246 022737 170020 032530 CMP #170020,BUFFER ALL 7s TESTED? 
2734 024254 001344 BNE 1$ ;BR IF NOT 
2735 024256 013701 024352 5$: MOV TMSAV+4 ,R1 340 FPS CNT TO R1 
2736 024262 163701 024346 SUB TMSAV ,R1 ;SUB_ FULL SPEED CNT 
2737 024266 162701 000020 SUB #20,R1 SMAKE SURE DIFF IS GREATER THAN 20 
2738 024272 100001 BPL 6$ ;BR IF 40 FPS SLOWER THAN FULL SPEED 
2739 024274 104040 ERROR 40 340 FPS SYNC ER 
2740 024276 013701 024350 6$: MOV TMSAV+2,R1 730 FPS CNT TO R1 
2741 024302 163701 024352 SUB TMSAV+4 ,R1 ;SUB 40 FPS CNT 
2742 024306 162701 000020 SUB #20,R1 MAKE SURE DIFF IS GREATER THAN 20 
2743 024312 100001 BPL 7$ BR IF 30 FPS SLOWER THAN 40 FPS 
2744 024314 104040 ERROR 40 :30 FPS SYNC ERROR 
2745 024316 005737 024356 7$: TST EXSYNC ART a SAYS LOOK FOR EXT SYNC TMG 
2746 024322 001404 BEQ 8$ IF 


2747 024324 005737 024354 TST TMSAV+6 LOOK FOR " WON-ZERO Ln CNT 

2748 024330 001013 BNE TST110 :;NEXT TEST IF TIMING THERE 

2749 024332 104040 ERROR 40 EXT SYNC FAILED TO TRIGGER DISPLAY 
2750 024334 005737 024354 8$: TST TMSAV +6 LOOK FOR ZERO TMG CNT 

2751 024340 001407 BEQ TST110 :;NEXT TEST IF TIMING NOT FOUND 

2752 024342 104040 ERROR 40 EXT SYNC TIMING FOUND WHEN NOT EXPECTED 
2753 024344 000405 BR TST110 ;;LOOK FOR LOOP ON TEST SW 


2755 024346 000000 TMSAV: OQ FULL SPEED CNT 

2756 024350 000000 0 330 FPS CNT 

2757 024352 000000 0 340 FPS CNT 

Shee 024354 000000 0 EXTERNAL CNT 

2760 024356 000000 EXSYNC: 0 ;ZERO(DON'T EXPECT EXT TMG), NON-ZEROCEXPECT EXT TMG) 


2762 CII IOISIOINI III IIIS IOIUIUIOIUIOIIIOIOIIDIOIUIOIIOIIOINOIIIOOIOIDIDIDIO IOI fot 
(3) S TEST 110 TEST FOR HALT AT END OF DIAGNOSTIC (SW12 SET) 
(3) PETTITT ILILIIL LITT LLL LLL LLL LLL LLL LLL LLL LLL LLL 


(2) 024360 900004 151110: SCOPE 





= 
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024362 012737 000110 091202 
024370 032777 010000 154542 
624376 601401 

024400 


48 
FOR HALT AT END OF DIAGNOSTIC (SW12 SET) 


MOV #110, $TESTN s7SET TEST i IN APT MAIL BOX 
BIT #SW12,aSWR ; IS Swi2 S$ 
BEC $EOP ;BR IF NOT 
HAL T : COMPLETED PASS = SW12 SAYS HALT 


SEQ 0071 
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H § 
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END OF PASS ROUTINE SEQ 0072 


.SBTTL END OF PASS ROUTINE 





MER ARARARAAAAAASAALASALALARRASAAAEASARLASR SRA ER ERAS RSA RRR RRA RAR ASS S SSS 





(1) ‘*INCREMENT THE PASS NUMBER ($PASS) 

(1) :*INDICATE END-OF PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
(1) x TYPE “END PASS pong —— XXXXX IS A DECIMAL NUMBER) 
(1) te]F THERES A MONITOR G 0 TO IT 

(1) ‘JF THERE ISN'T JUMP 9 RESTRT 

(1) 024402 $EOP: 

(1) 024402 000004 SCOPE 

(1) 024404 005037 001102 CLR $TSTNM : ZERO THE TEST NUMBER 

(1) 024410 005037 001166 CLR $TIMES >ZERO THE NUMBER OF ITERATIONS 
(1) 024414 005237 001204 INC $PASS : INCREMENT THE PASS NUMBER 
(1) 026620 042737 100000 001204 BIC #100000, $PASS : DONT ALLOW A NEG. NUMBER 
(1) 024426 005327 DEC (PC) + OP? 

(1) 024430 000001 $EOPCT: .WORD 1 

(1) 024432 003022 BGT $DOAGN rrYES 

(1) 024434 012737 MOV (PC)+,a(PC)+ s RESTORE COUNTER 

(1) 024436 000001 $ENDCT: .WORD 1 

(1) 024440 024430 $EOPCT 

(1) 024442 104401 024507 TYPE , SENDMG ;TYPE ‘END PASS #"' 

(2) 024446 013746 001204 MOV $PASS,-(SP) SAVE SPASS FOR TYPEOUT 
(2) 024452 104405 TYPDS £60 O TYPE=-DECIMAL ASCII WITH SIGN 
(1) 026454 104401 024504 TYPE » SENULL +: TYPE A NULL CHARACTER 

(1) 024460 013700 000042 $GET42: MOV a42,R0 “GET MONITOR ADDRESS 

(1) 024464 001405 BEQ $DOAGN * BRANCH IF NO MONITOR 

(1) 024466 000005 RESET ==CLEAR THE WORLD 

(1) 024470 004710 $ENDAD: JSR PC, (RO) ::GO TO MONITOR 

(1) 024472 000240 NOP : SAVE ROOM 

(1) 024474 000240 NOP :FOR 

(1) 024476 000240 NOP t:ACT11 

(1) 024500 $DOAGN: 

(1) 024500 000137 JMP a(PC)+ RETURN 

(1) 024502 002460 SRINAD: .WORD 2 gy 

(1) 024504 377 377 COO S$ENULL: .BYTE 0 sNULL CHARACTER STRING 
(1) 024507 015 042412 042116 $ENDMG: .ASCIZ nk, See pass’ #7 
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024550 


024552 


024622 
024630 


0 
024670 
024672 


024674 
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032737 
1403 


010146 


I 6 
TEST PART I] MACY11 30G(1063) 17-SEP-79 08:46 PAGE 11 
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000001 


100000 
032530 


000001 
000200 
155170 


024632 


024632 
100000 


000340 
000004 
001246 
160000 


000002 


001204 


155250 
155210 


155200 


155162 


177776 


END OF PASS ROUTINE 


FERRARA EERE EEREERRARERERAARARERRERAARRR 


; SUBROUTINE TO START DISPLAY AND WAIT FOR STOP FLAG 


PT TTTITETTTE TITTLE LITTLE LTT LLL LLL LLL 


EXECUTE: 
BIT #RB1TO,$PASS ODD : PASS? 
BEQ EXEC F NOT 
BIS WBIT15,@STKPT RUN IN SERIAL MODE ON ODD # PASSES 
EXEC: =e ecRenUr FER -aDPC START DISPLAY 
X 


FLARE RARE EERE REE EE EKER ERE EERE ERE 


; SUBROUTINE TO CONTINUE DISPLAY AND WAIT FOR STOP FLAG 


LTE REE IEEE EERE EEEKEREEKEEEKEEKEKEKERREREREEERE EEE 


CONT: MOV #1, aDPC sRESUME DISPLAY 
EXECRS: MOV RO,-(SP) ; SAVE RO 
MOV #B1IT7,RO ;LOAD DELAY 
1$: TST aSREGO ;WAIT FOR STOP FLAG 
BMI 2$ 7BR IF SET 
DEC RO ; DELAY 
BNE 1$ BR IF NOT DONE 
TST NOF LAG = VALID NO STOP FLAG CONDITION ? 
BNE $ IF YES 
MOV (SP)+,RO “RESTORE RO IN CASE OF LOOP ON ER SW 
ERROR 37 ;STOP FLAG FAILED TO SET 
BR 3$ RO ALREADY RESTORED 
2$: MOV (SP)+,RO sRESTORE RO 
3$: CLR NOF LAG sENSURE RESET FLAG 
BIC #B1T15,aSTKPT ;RETURN WITH MAINT SW 4 OFF 
RTS PC ‘EXIT 
NOFLAG: 0 


FDR ERE ERE REE E KEKE EEEEREREREKEKEEEEEEER EEE 


THIS CODE RESETS ALL VS60 VECTORS WITH HALTS 


MR SSSSSLASLSSESESSS EEE SERS ASE SESE SESE AE RSE RRS ARERR AAR R RSE SRDS DD 


RSTVEC: _ #340 ,PSW ;RESET PRIORITY TO HIGHEST LEVEL 


#4 RI SET UP_VECTOR LOCATION COUNT 
MOV $VECT1,RO 3GET 1ST VS60 VECTOR ADRS 
BIC #160000 ,RO : STRIP PSW BITS. 
1$: MOV RO, (RO) ;SET UP ADRS TO HALT 


ADD #2,(RO)+ :POINT IT TO HALT 

CLR (RO) + SET UP_HALT 

DEC R1 COUNT THIS VECTOR RESTORE 
BNE 1$ ;BR_IF MORE TO RESTORE 

RTS PC SRETURN IF ALL DONE 


MRSA AS£ £22222 22 SES SSESESSALSEESES EEA SSSA AA RASS ARR ARRAS SARS SSE S S| 


> ROUTINE TO MULTIPLY AN X OR Y POINT BY A SCALE FACTOR. 
; SAVE SCALED POINT VALUE IN $GDDAT. 


; *** TWO VERSION SUPPLIED awe 
; *** FOR BEFORE AND AFTER SCALING ECO. ane 
; *** SWR BIT 10 = 1 IF 5° IS INSTALLED een 
; ih G.P. MAY ‘9 wht 


SD RE REE REE REE RRR ERE REE REE ERE ETRE ER 


MULSCL: MOV R1,-(SP) :SAVE SCALE ON STACK 


SEQ 0073 


J 6 
C7VSBB == VS60 ee tag ThE N uss! PART I] MACY11 30G(1063) 17=SEP=79 08:46 PAGE 11-1 


END OF PASS ROUTINE SEQ 0074 


CZ7VSBB.P11 10-SEP-79 
2825 024676 010046 MOV RO,-(SP) ; SAVE POINT ON STACK 
2826 024700 1001 BNE 1$ 
2827 024702 005001 CLR R1 ; SET EXP POINT = 0... 
2828 4704 005701 1$: TST R1 
oe80 024706 001461 BEQ 11$ j..-AND EXIT IF EITHER IS 0. 
2831 024710 032777 002000 154222 BIT #SW10,aSWR 
Sort 024716 001411 BEQ 2$ ; BR IF SCALING ECO NOT IN. 
2834 ; USE THE FOLLOWING AFTER SCALING ECO (4???) IS S eaigngpanats 
See ; SCALE VALUE IS X 2*2 (1.€. 3 = 3/4, 4 = 1, ETO) 
2837 024720 01004 MOV RO,-(SP) ; POINT... 
2838 024722 010146 MOV R1,-(SP) sooeTIMES SCALE (2°2]... 
2839 024724 737 ~=027504 JSR PC, $MULT 
2840 024730 012601 MOV (SP)+,R1 Seoe TORT (2°22. 
2841 024732 005726 TST (SP)+ ; DISCARD HI +4 OF PRODUCT. 
2842 024734 00620 ASR R1 ; RESCALE RESULT 
2843 024736 006201 ASR R1 
one 024740 000444 11$ : AND EXIT. 
oe ; USE THE FOLLOWING BEFORE SCALING ECO. 
2848 024742 005003 2$: CLR R3 ;CLR UNITY MULTIPLIER 
2849 024744 010002 MOV RO,R2 ;PUT POINT IN R2 ALSO 
2850 024746 5004 CLR R4 ;CLR_LSB ROUNDING INDICATOR 
2851 024750 162701 000004 3$: SUB #4,R1 ;SUBTRACT ALL UNITY TIMES 
2852 024754 002405 BLT 4$ NOW TO FRACTIONAL PART 
2853 024756 005203 INC R3 RECORD IN UNITY MULTIPLIER 
2854 0247 005701 TST R1 ;DOES SCALE HAVE FRACTIONAL PART? 
2855 024762 001372 BNE 3$ [BR IF FRACTION EXISTS 
2856 024764 005000 CLR RO 3NO FRACTIONAL PART EXISTS 
2857 0247 000421 BR 7$ :GO MUL POINT BY SCAL 
2858 024770 006200 4$: ASR RO :DIVIDE BY TWO 
2859 024772 103001 BCC 5$ ;BR IF NO CARRY 
2860 024774 005204 INC R4 :SAVE LSB SHIFT OUT FOR ROUNDING AT 1/4 OR 3/4 
2861 024776 062701 000002 5$: ADD #2,R1 ;COUNT DIVISION BY TWO 
2862 025002 001413 BEQ 7$ :GO MUL POINT BY SCALE IF FRACT PART IS 1/2 
2863 025004 BGT 6$ ;BR IF FRACT PART IS 3/4 
2864 025 200 ASR RO ADJUST FRACTIONAL PART TO 1/4 
2865 025010 103010 BCC 7$ :GO MUL POINT BY SCALE IF NO LSB CARRY OUT 
2866 025012 5704 TST R4 :WAS THER A PREVIOUS CARRY OUT? 
2867 025014 001406 BEQ 7$ BR IF NOT = GO MUL POINT BY SCALE 
2868 025016 005200 INC RO HIF SO - TWO LSB CARRIES ROUNDS UP TO 1 
2869 025020 0004 7$ GO MUL POINT BY SCALE 
2870 025022 0604 6$: ADD R4,RO WAYS ROUND UP IF LSB CARRY ON 1ST SHIFT ON 3/4 FRAC 
2871 025024 006202 ASR R2 ZMAKE UP 1/4 FRACTION IN R2 
2872 025026 006202 ASR Re ; 
2873 5030 060200 ADD R2,RO SADD 1/4 TO 1/2 FOR 3/4'S 
2874 025032 011601 7$: MOV (SP) ,R1 ;GET POINT VALUE TO R1 
2875 5034 005303 8$: DEC R3 [NOW COUNT UNITY TIMES 
2876 025036 001404 BEQ 10$ BR IF ALL WHOLE UNITS ADDED IN 
2877 025040 100402 BM! 9$ 3;BR_IF ONLY eee PART EXISTS 
2878 025042 061601 ADD (SP) ,R1 :ADD IN — UNITY 
28 025044 77 BR 8$ :GO LOOK FOR ANOTHER TIMES 
2 025046 005001 9$: CLR R1 ‘THERE IS ONLY A FRACTIONAL PART 


CZ7VSBB == VS60 ANS TRUST 10N 


CZVSBB.P11 


025050 


025052 


025162 


10=SEP 
060001 


010137 
012600 
012601 


TE 
9 11:32 


001124 


020000 
020000 
020000 
030000 


010000 


140000 
001124 


176000 
007777 


001126 
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END OF PASS ROUTINE 
10$: ADD RO,R1 :ADD IN FRACTIONAL PART 
> COMMON EXIT FROM EITHER SCALING FUNCTION ABOVE. 
11$: MOV R1,$GDDAT sSAVE COMPUTED POINT. 
MOV (SP)+,RO *RESTORE RO 
MOV (SP)+.R1 SRESTORE R1 
RTS PC sEXIT 


DOOR ISI IOISIOIOISIOIIOIIOISIOIOIOIDIIIDIIOIIOIIOIOIOIOIOIOIOI OI TOI TOT TOT OT OTT TET TEE ETE IE 
;THIS ROUTINE ADDS AN X OR Y POINT TO THE RESPECTIVE X OR 
7Y_ DYNAMIC OFFSET AND LEAVES THE 14 BIT RESULT IN $GDDAT. 
:RO CONTAINS THE POINT DATA & R1 CONTAINS THE OFFSET DATA 
;WHEN ENTERING THIS ROUTINE. 


DDB SIISISIIIII IIIS ISI IIIDISIDIIOITIIISIOIOIOIDIDUIIUIOIIIIINI IOI ODO nit 


CALPT: BIT #B1T13,RO ;POINT NEG? 
BEQ POS1 BR IF NOT 
BIC #B1T13,RO :CLR_ SIGN BIT 
NEG R MAKE NEG 
POS1: BIT #B1T13,R1 OFFSET NEG? 
BEQ POS2 BR IF NOT 
BIC #B1T13!B1T12,R1 ;CLR SIGN & OFFSET BITS 
NEG R1 ;MAKE NEG 
BR OVER1 :SKIP OVER NEXT INSTR 
POS2: BIC #B1T12,R1 ;DONT WANT OFFSET BIT 
OVER1: ADD R1,RO MAKE UP CALULATED POINT VALUE 
BIC #140000 ,RO “LIMIT TO 14 BITS 
MOV RO, SGDDAT SAVE POINT RESULT IN $GDDAT 
RTS PC [RETURN 


J LRA EEK REE ERE EKER 


; THIS ROUTINE MAKES UP A 14 BIT X OR Y POINT LENGTH WHICH IS LEFT IN S$BDDAT 


WES tSASAASSAAESASELEALEL SALAS LEAAL SASL A REESE SARA S SRSA SAREE EES SG 


001126 POCONV: BIC #176000, $BDDAT ;SAVE ONLY X OR Y POSITION BITS 
BIC #7777,R5 sSAVE ONLY X OR Y HI ORDER POSITION BITS 
CLC :CLR CARRY BEFORE ROTATE 
non RS sROTATE RIGHT 2 PLACES 
D R5,$BDDAT ‘MAKE UP 14 BIT X OR Y POINT LENGTH 


AD 
RTS PC sEXIT 


SEQ 0075 


BLL LOLOL LOL LL LK PK 
a ed ed ad wd wd ow I) 


) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 


(1 
q 
.¢ 
¢) 
qd 
(1 
6 
6 
(1 
1 
1 
1 
1 
qd 
(1 
1 
q 
qd 
(1 
(1 
6 
(1 
qd 
1 
(1 
(1 
(1 
1 
.¢ 
(1 
q 
(1 
qd 
qq 
qd 
(1 
1 
‘¢ 
(1 
a) 


025164 
025164 
025172 
025174 


025176 


025402 
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153746 


000004 


153700 
001102 


001103 
153642 
001106 


153610 


001104 


001104 
001166 


001202 


MACY11 30G6(1063) 
SCOPE HANDLER ROUTINE 


-SBTTL SCOPE HANDLER ROUTINE 


BNE 
; AAAAASTART 
$XTSTR: BR 


L 6 
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DRIER SIISIIISIIOIOITIDITIOIOIOIOIOIOI IOI IOI I TOT TOT TTT TTT TT TITAS ITAS SAIS SAN 
TATHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

; AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

; *THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

SW14= LOOP ON TEST 


INHIBIT ITERATIONS 


LOOP ON ER 


ROR 
LOOP ON TEST IN SWR<7:0> 
;sSCOPE=I0T 


#B1T14,aSWR 
SOVER 


@FERRVEC ,-(SP) 

#5$, @MERRVEC 

a#177060 

(SP) +, @AMERRVEC 
SVLAD 


$ 
5$: (SP) +, (SP)+ 


SP). +, @#ERRVEC 


0 
OF CODE FOR THE XOR 
6$ 


;LOOP ON rhe aaa TEST? 

sYES IF SW14=1 
TeSTERMeNee 

: IF RUNNING ON THE ay 9 a CHANGE 

THIS INSTRUCTION TO A _‘NOP"’ (NOP=240) 
SISA VE THE CONTENTS OF THE ERROR VECTOR 
2éSET FOR TIMEOUT 

ME OUT ON XOR? 

TZRESTORE THE ERROR VECTOR 
+260 TO THE NEXT TEST 

;CLEAR THE STACK AFTER A TIME OUT 
; ;RESTORE THE ERROR VECTOR 

ON THE PRESENT TEST 


7 LOOP 
CODE FOR THE XOR TESTERMHAAA 


vt T08,aSWR 
@SWR ,STSTNM 
SOVER 

SERFLG 

3$ 

SERMAX, SERFLG 
ry T09, aSWR 
SLPERR,$LPADR 
SOVER 

SERFLG 

STIMES 

1$ 
#B1T11,aSWR 
1$ 

$PASS 

1$ 


$ICNT 
STIMES,SICNT 
SOVER 


1$: #1,$I1CNT 
MOV 
SSVLAD: 
MO 


SMXCNT ,STIMES 
STSTNM 
STSTNM,STESTN 
(SP) ,SLPADR 


::LOOP ON SPEC. TEST? 
::BR IF NO 
> ION THE RIGHT TEST? 
: SHAS AN ERROR OCCURRED? 
t, + ERRORS FOR THIS TEST OCCURRED? 
3 3LOOP ON ERROR? 

‘BR IF NO 
SET LOOP ADDRESS TO LAST SCOPE 


22 ZERO THE ERROR FLAG 

AR THE NUMBER OF ITERATIONS TO MAKE 
ZZESCAPE TO THE NEXT TEST 
oF ae ITERATIONS? 


:BR IF YES 
asl FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
ZZINCREMENT ITERATION COUNT 
iC HECK THE NUMBER OF ITERATIONS MADE 
:BR IF MORE ITERATION REQUIRED 
i :REINITIALIZE THE ITERATION COUNTER 
T NUMBER OF ITERATIONS TO DO 
i: COUNT TEST R 


NUMBE 
T TEST NUMBER IN APT MAILBOX 
::SAVE SCOPE LOOP ADDRESS 


SWR<7:0> 
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CZ7VSBB == VS60 INSTRUCTION TE 
CZ7VSBB.P11 10-SEP-79 11:32 SCOPE HANDLER ROUTINE SEQ 0077 
(1) 406 011637 001110 MOV (SP) ,SLPERR ::SAVE ERROR LOOP ADDRESS 
(1) 025412 005037 001170 CLR SESCAPE i3CLEAR THE ESCAPE FROM ERROR ADDRESS 
(1) 025416 112737 000001 001115 MOVB #1, SERMAX SONLY ALLOW ONE(1) ERROR ON NEXT TEST 
(1) 025424 013777 001102 153510 S$OVER: MOV STSTNM, ab ISPLAY : DISPLAY TEST NUMBER 
(1) 025432 013716 001106 MOV SLPADR, (SP) FUDGE RETURN ADDRESS 
(1) 025436 000002 RTI FIXES P 
(1) 025440 003720 SMXCNT: 2000. MAX. NUMBER OF ITERATIONS 
2924 .SBTTL APT COMMUNICATIONS ROUTINE 
(3) TORS AASAASAASZASAASZALALALALZALAESLE SESE SESS SRS ER RRR SR RAR RARE RRR RRS SD SG 
(1) 025442 112737 000001 025706 $ATY1: MOVB #1 .SFFLG ::T0 REPORT FATAL ERROR 
(1) 025450 112737 000001 025704 $ATY3: MOVB #1,$MFLG +:TO TYPE A MESSAGE 
(1) 025456 000403 BR $ATYC 
(1) 025460 112737 000001 025706 $ATY4: MOVB 4#1,$FFLG ::TO ONLY REPORT FATAL ERROR 
(1) 025466 SATYC: 
(3) 025466 010046 MOV RO,-(SP) :zPUSH RO ON STACK 
(3) 025470 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 
(1) 025472 105737 025704 TSTB = SMFLG ; s SHOULD TYPE A MESSAGE? 
(1) 025476 001450 BEQ 5$ :IF NOT: BR 
(1) 025500 122737 000001 001216 CMPB  =—s- HAPTENV,, SENV ; }OPERATING UNDER APT? 
(1) 025506 001031 BNE $ T: 
(1) 025510 132737 000100 001217 BITB § #APTSPOOL,SENVM ; s SHOULD SPOOL MESSAGES? 
(1) 025516 001425 BEQ 3$ :IF NOT: BR 
(1) 025520 017600 000004 MOV @4 (SP) ,RO :GET MESSAGE ADDR. 
(1) 025524 062766 000002 000004 ADD #2,4(SP) :;BUMP RETURN ADDR. 
(1) 025532 005737 001176 1$: TST $MSGTYPE i: SEE lf. “DONE W/ LAST XMISSION? 
(1) 025536 001375 BNE 1$ WAIT 
(1) 025540 010037 001212 MOV RO, $MSGAD PUT MADDR IN MAILBOX 
(1) 025544 105720 2$: TSTB ~— (RO) + ::FIND END OF MESSAGE 
(1) 025546 001376 BNE 2$ 
(1) 025550 163700 001212 SUB $MSGAD ,RO ::SUB START OF MESSAGE 
(1) 025554 006200 ASR RO +:GET MESSAGE LNGTH IN WORDS 
(1) 025556 010037 001214 MOV RO, $MSGLGT *:PUT LENGTH IN MAILBOX 
(1) 025562 012737 000004 001176 MOV #4. SMSGTYPE *:TELL APT TO TAKE MSG. 
(1) 025570 000413 BR $ 
(1) 025572 017637 000004 025616 3$: MOV a4 (SP) .4$ :zPUT MSG ADDR IN JSR LINKAGE 
(1) 025600 000002 000004 ADD #2,4(SP) “BUMP RETURN ADDRESS 
(3) 025606 013746 177776 MOV 177776, (SP) $:PUSH 199776 ON STACK 
(1) 025612 004737 027222 JSR PC, $TYPE ‘CALL TYPE MACRO 
(1) 025616 000000 4$: WORD 0 
(1) 025620 S$: 
(1) 025620 105737 025706 10$: TSTB ~—s- SFFLLG : SHOULD REPORT FATAL ERROR? 
(1) 025624 001416 BEQ 12$ ::IF NOT: BR 
(1) 025626 005737 001216 TST SENV : S RUNNING UNDER APT? 
(1) 025632 001413 BEQ 12$ :IF NOT: BR 
(1) 025634 005737 001176 11$: TST $MSGTYPE ;F INISHED LAST MESSAGE? 
(1) 025640 001375 BNE 11$ s:IF NOT: WAIT 
(1) 025642 017637 000004 001200 MOV @4(SP).$FATAL ::GET ERROR it 
(1) 025650 062766 000002 000004 ADD #2,4(SP) :BUMP RETURN ADDR. 
(1) 025656 005237 001176 INC $MSGTYPE ti TELL APT TO TAKE ERROR 
(1) 025662 105037 025706 12$: CLRB = S$FFLG *:CLEAR FATAL FLAG 
(1) 025666 105037 025705 CLRB = $LFLG >: CLEAR LOG FLAG 
(1) 025672 105037 025704 CLRB = SMFLG i7CLEAR MESSAGE FLAG 
(3) 025676 012601 MOV (SP)+,R1 sPOP STACK INTO R1 
(3) 025700 012600 MOV (SP)+,RO *:POP STACK INTO RO 
(1) 025702 000207 RTS PC + RETURN 


CZ7VSBB =~ 
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025704 
025705 
025706 


025710 


026074 


025710 


113737 


122737 
001007 
113737 
004737 


013716 
022737 
001001 


025460 


153110 


001000 


001110 
001170 


001170 
024470 


VS60_ INSTRUCTION TEST PART II MACY11 30G(1063) 
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153076 


000042 


COMMUNICATIONS ROUTINE 


SMFLG: .BYTE 0 
$LFLG: .BYTE 0 
SFFLG: .BYTE 0 

VEN 
APTSIZE=200 
APTENV=001 
APTSPOOL=100 
APTCSUP= 


040 
-SBTTL ERROR HANDLER ROUTINE 


N 6 
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SEQ 0078 


Sey oy 1 FLAG 
LOG FLAG 
TIFATAL FLAG 


FERRARA REE EEKEEERERAREREEEREERERER EE 


TRTHIS ROUTINE WILL_INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
"toatn AND 


; *SAVE THE ERROR ITEM 
SERRTYP ON ERR 


THE ADDRESS OF THE ERROR CALL 


:*AND GO TO 
:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
ON ERROR 


; sERROR=EMT AND N=ERROR ITEM NUMBER 


et +S a ERROR FLAG 
T LET THE FLAG GO TO ZERO 
NUMBER AND ERROR FLAG 


COUNT 
SIGET ADDRESS OF ERROR INSTRUCTION 


+ STRIP AND SAVE THE ERROR ITEM CODE 
:SKIP TYPEOUT IF SET 

::SKIP_TYPEOUTS 

::GO TO USER ERROR ROUTINE 


; RUNNING IN APT MODE 
e200. SKIP APT ERROR REPORT 

T ITEM NUMBER AS ERROR NUMBER 
7:REPORT FATAL ERROR TO APT 


2 sAPT ERROR LOOP 
ON ERROR 
; SKIP IF CONTINUE 


T ON ERROR! 
te we SWITCH SET? 


> ;FUDGE RETURN FOR LOOPING 

2s CHECK FOR AN ESCAPE ADDRESS 
;BR_IF NONE 

>:FUDGE RETURN ADDRESS FOR ESCAPE 


7 sACT~ ~11 AUTO-ACCEPT? 
CH IF NO 


7*SW15=1 HALT R 
*SW13=1 INHIBIT ERROR TYPEOUTS 
+ *SWO9=1 LOOP ON ERROR 
*CALL 
s* ERROR WN 
SERROR: 
MOVB STSTNM, TSTNUM 
7$: INCB SERFLG 
BEQ 7$ ; 
MOV STSTNM,@DISPLAY ;; 
INC SERTTL 
MOV (SP) , SERRPC 
SUB #2,SERRPC 
MOVB @SERRPC ,SITEMB 
BIT #B1T13,aSWR 
BNE 20$ 
JSR PC,SERRTYP 
TYPE -SCRLF 
20$: 
CMPB #APTENV, SENV 
BNE $ 
MOVB SITEMB, ho 
JSR PC, SATY 
21$: -BYTE 0O 
-BYTE 0O 
22$: BR 22$ 
2$: TST aSwR 
BPL 3$ 
HALT 
3$: BIT #B1T09,aSWR 
BEQ 4 
MOV SLPERR, (SP) 
4$: TST SESCAPE 
BEQ 5$ 
5s MOV SESCAPE, (SP) 
CMP HSENDAD . a#42 
BNE 6$ 
HALT 


6$: 


z2 VES 
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CZ7VSBB.P11 10-SEP-79 11:32 ERROR HANDLER ROUTINE 


(1) 026074 000002 RTI 3; =RETURN 
2926 
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CZ7VS8B.P11 10-SEP-79 11:32 ERROR MESSAGE TYPEOUT ROUTINE SEQ 0080 


2928 .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 

(2) FRAAARAAAAAAAERAEARREERAERERERRAERERERERERERRREERRERREERRRRRRRERRERR 
(1) *STHIS ROUTINE USES THE ‘‘ITEM CONTROL BYTE'’ (SITEMB) TO DETERMINE, WHIC 
(1) S*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE (SERRTB), 
(1 ‘®AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 

(1) 026076 SERRTYP: Hi 
(1) 026076 104401 061173 TYPE  ,$CRLF rr"CARRIAGE RETURN’' & “LINE FEED 
(1) 026102 010046 MOV RO,-(SP) SZ SAVE R 

(1) 026106 005000 CLR RO ::PICKUP THE ITEM INDEX 

(1) 026106 153700 001114 BISB a#$ITEMB,RO 

(1) 026112 001004 BNE 1$ z:1F ITEM NUMBER IS ZERO, JUST 
(1) [:TYPE THE PC OF THE ERROR 

(2) 026114 013746 001116 MOV SERRPC ,-(SP) ; SAVE SERRPC FOR TYPEOUT 

(2) : SERROR ADDRESS 

(2) 6120 104402 TYPOC G0 TYPE--OCTAL ASCII(ALL DIGITS) 
(1) 026122 000426 BR 6$ T OUT 

(1) 026124 005300 1$: DEC RO 3 ADJUST THE INDEX SO THAT IT WILL 
(1) 026126 006300 ASL RO sé WORK FOR THE ERROR TABLE 
(1) 026130 006300 ASL RO 

(1) 026132 006300 ASL RO 

(1) 026134 062700 001262 ADD #SERRTB,RO ::FORM TABLE POINTER 

(1) 026140 012037 026150 MOV (RO) +, 2$ *:PICKUP ‘ERROR MESSAGE’' POINTER 
(1) 026144 001404 BEQ 3$ :3SKIP TYPEOUT IF NO POINTER 

(1) 026146 104401 TYPE tiTY “ERROR MES 

(1) 026150 000000 2$: .WORD 0 ;:' ERROR MESSAGE'' POINTER GOES HERE 
(1) 026152 104401 001173 TYPE  ,$CRLF ZI'CARRIAGE RETURN’ @ "LINE FEED" 
(1) 026156 012037 026166 3$: MOV (RO) +,4$ :=PICKUP ‘DATA HEADER'’ POINTER 
(1) 026162 001404 BEQ 5$ :3SKIP TYPEOUT IF 0 

(1) 026164 104401 TYPE STYPE THE ‘DATA HEADER'' 

(1) 026166 000000 4$: ~ WORD 0 +2 DATA HEADER’ ’ POINTER GOES HERE 
(1) 026170 104401 001173 TYPE ,SCRLF 22" ‘CARRIAGE R RETURN’’ & ‘LINE FEED'’ 
(1) 026174 011000 5$: MOV (RO) ,RO ::PICKUP ‘DATA TABLE’’ POINTER 

(1) 026176 001004 BNE 7$ *:GO TYPE THE DATA 

(1) 026200 012600 6$: MOV (SP)+,RO : RESTORE RO ; 
(1) 026202 104401 001173 TYPE ,SCRLF 32" 'CARRIAGE RETURN'' & “LINE FEED'’ 
(1) 026206 000207 RTS PC + [RETURN 

(1) 026210 7$: 

(2) 026210 013046 MOV a(RO)+,-(SP) 7: SAVE a(RO)+ FOR TYPEOUT 

(2) 026212 104402 TYPOC 3:60 he a on my DIGITS) 
(1) 026214 005710 TST (RO) :31S THERE ANOTHER NUMBER? 

(1) 026216 001770 BEQ 6$ ‘BR IF NO 

(1) 026220 104401 026226 TYPE 24 SZ TYPE TWO(2) SPACES 

(1) 026224 000771 BR 7$ +: LOOP 

(1) 026226 020040 000 8$: “ASCIZ / / *:TWO(2) SPACES 

(1) 026232 EVEN 


3 
3 
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-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


[RRR R TERRE EER Tee 

SR THIS ROUTINE IS USED TO _— A 16-BIT BINARY NUMBER TO A 6-DIGIT 
[*OCTAL (ASCII) NUMBER AND TYPE IT. 

; wT YPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DiGITS TO TYPE 


NUM, -(SP) ; ;NUMBER TO BE TYPED 
7sCALL_FOR TYPEOUT 
a TO 6 FOR NUMBER OF DIGITS TO TYPE 
-BYTE M 33M=1 a 0 
:1=TYPE LEADING ZEROS 
7:0=SUPPRESS LEADING ZEROS 


* e$TYPON----ENTER HERE 10 TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
* *$TYPOS OR $TYPOC 

:*CALL: 

3 MOV NUM ,-(SP) ; ;NUMBER TO BE TYPED 

i TYPON ;;CALL FOR TYPEOUT 


{$1 YPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
* 

ed MOV NUM, = (SP) ;NUMBER TO BE TYPED 
s* TYPOC SICAL FOR TYPEOUT 


026232 000000 $TYPOS: a(SP) ,-(SP) if Sy" THE MOD 
026455 MO 1(SP) eens LOAD ZERO FILL SWITCH 
(SP) + 1 33NUMBER OF DIGITS TO TYPE 
ZZADJUST RETURN ADDRESS 


7-SET THE ZERO FILL SWITCH 
MO are tH FOR SIX(6) DIGITS 
026454 : os 3ST oa ITERATION COUNT 


; R5 
SIGET THE NUMBER OF DIGITS TO TYPE 


;;SUBTRACT IT FOR MAX. ALLOWED 
::SAVE_IT FOR USE 
3-GET THE ZERO FILL SWITCH 
[PICKUP THE INPUT NUMBER 
EAT THE OUTPUT WORD 

on ye INTO ‘'C'’ 


0 MSB 
+ FORM THIS DIGIT 


3$: L ;:GET LSB OF Heat piGiT 
026456 ; 7sTYPE THIS DIGIT? 
BP NO 


7$ >;BR_IF 
177770 #177770,R3 :2GE1 ae OF JUNK 
4$ TEST FOR 0 
2 7 SUPPRESS THIS 0? 
;BR IF YES 


2 
1 
1 
1 
1 
1 
: 
1 
1 
1 
] 
1 
1 
1 
1 
1 
1 
: 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 


ee Ne Ne ee ee Ne ee ee ee ee ae ee ee ee ee ee ee ee ee ee ee eee ee Se ae Se ae Sa eee 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
c 
( 
( 
( 
( 


R4 
026372 5$ 





E 
CZ7VSBB =~ VS60 INSTRUCTION TEST PART II MACY11 30G(1063) 9 gre m2 46 PAGE 14-1 


C7VSBB.P11 10-SEP-79 11:32 BINARY TO OCTAL (ASCII) AND SEQ 0082 

(1) 026374 005204 4$: INC RG ::DON'T SUPPRESS ANYMORE 0'S 
(1) 026376 052703 000060 BIS #°0,R3 S:MAKE THIS DIGIT ASCII 
(1) 026402 052703 000040 S$: BIS #' —R3 ::MAKE ASCII IF NOT ALREADY 
(1) 026406 110337 026452 MOVB _—R3, BS :3SAVE FOR TYPING 
(1) 026412 104401 026452 TYPE 8$ ‘GO TYPE THIS DIGIT 
(1) 026416 105337 026454 7$: DECB $OCNT :: COUNT BY 1 
(1) 026422 003347 BGT 2$ BR IF MORE TO DO 
(1) 026424 002402 BLT 6$ [:BR IF D 
(1) 026426 005204 INC R4 3 HINSURE LAST DIGIT ISN'T A BLANK 
(1) 026430 000744 BR 2$ :GO DO THE LAST DIGIT 
(1) 026432 012605 6$: MOV (SP) +,R5 RESTORE R5 
(1) 026434 012 MOV (SP) +._RG TRESTORE RG 
(1) 026436 012603 MOV (SP)+,R3 ; RESTORE R3 
(1) 026440 016666 000002 000004 MOV 2(SP) ,4(SP) S:SET THE STACK FOR RETURNING 
(1) 026446 012616 MOV (SP) +, (SP) 

(1) 026450 000002 RTI : ;RETURN 
(1) 026452 000 8$: -BYTE 0 ;: STORAGE FOR ASCII DIGIT 
(1) 026453 000 -BYTE 0 3 TERMINATOR FOR TYPE ROUTINE 
(1) 026454 000 $OC “BYTE 0 S:OCTAL DIGIT COUNTER 
(1) 026455 000 SOF ILE: “BYTE 0 :ZERO FILL SWITCH 
(1) 026456 000000 SOMODE: .WORD 0 [NUMBER OF DIGITS TO TYPE 

ot 3 . SBTTL CONVERT BINARY TO DECIMAL. AND TYPE ROUTINE 

(2) FREER EEE KEEEEEEERREEEKEEEEKKERKEEREEEREKEEEREERERREREREKEKKEKK 
(1)  STHIS ROUTINE IS USED TO CHANGE A 16-8IT BINARY NUMBER TO A 5-DIGIT 
(1) >*SIGNED DECIMAL (ASCII) R AND TYPE IT. DEPENDING ON WHETHER THE 
(1) : *NUMBER ITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
(1) 7 *BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
nS = WITH SPACES. 

7*CALL: 

(1) se MOV NUM, - (SP) ::PUT THE BINARY NUMBER ON THE STACK 
M4 Pal TYPDS 32:GO TO THE ROUTINE 
(1) 026460 $TYPDS: 
(3) 026460 010046 MOV RO,-(SP) 7zPUSH RO ON STACK 
(3) 026462 010146 MOV R1,-(SP) +:PUSH R1 ON STACK 

, 8) 026464 010246 MOV R2.-(SP) : :PUSH R2 ON STACK 
(3) 026466 010346 MOV R3,-(SP) PUSH R3 ON STACK 
(3) 026470 010546 MOV R5,-(SP) ; PUSH RS ON STACK 
(1) 026472 012746 020200 MOV #20200, -(SP) 7SET BLANK SWITCH AND SIGN 
(1) 026476 016605 000020 MOV RS ::GET THE INPUT NUMBER 
(1) 026502 1 BPL *:BR IF INPUT I : 
(1) 026504 005405 NEG R5 ‘MAKE THE BINARY NUMBER POS. 
(1) 026506 112766 000055 000001 MOVB = #*=, 1(SP) ::MAKE THE ASCII NUMBER NEG. 
(1) 026514 005000 1$: CLR RO ::ZERO THE CONSTANTS INDEX 
(1) 026516 012703 026674 MOV #SDBLK ,R3 ::SETUP THE OUTPUT POINTER 
(1) 026522 112723 000040 MOVB = #':_, (R3)+4 ::SET THE FIRST CHARACTER TO A BLANK 
(1) 026526 005002 2$: CLR R2 *:CLEAR THE BCD NUMBER 
(1) 026530 016001 026664 MOV $DTBL(RO).R1 GET THE CONSTANT 
(1) 026534 160105 3$: SUB R1,R5 *:FORM THIS BCD DIGIT 
(1) 026536 002402 BLT 4$ *:BR IF DONE 
(1) 026540 005202 INC R2 :: INCREASE THE SCD DIGIT BY 1 
(1) 026542 000774 BR 3$ 
(1) 026544 060105 4$: ADD ais R5 ;zADD BACK THE CONSTANT 
(1) 026546 005702 TST *=CHECK IF BCD DIGIT=0 
(1) 026550 001002 BNE R *°FALL THROUGH IF 0 
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C2VSBB.P11 10-SEP-79 11:32 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0083 

(1) 026552 105716 TSTB. = (SP) ZzSTILL DOING LEADING 0°S? 
(1) 026554 100407 BM 1 7$ ::BR IF YES 
(1) 026556 106316 S$: ASLB ss (SP) + =MSD? 
(1) 026560 103003 BCC 6$ ::BR IF NO 
(1) 026562 116663 000001 177777 MOVB  1(SP),=1(R3) = ::YES==SET THE S$ 
(1) 026570 052702 000060 6$: BIS #'0,R2 : MAKE THE At Steir ASCII 
(1) 026574 052702 000040 7$: BIS #' [R2 ::MAKE IT A SPACE IF NOT ALREADY A DIGIT 
(1) 026600 110223 MOVB _—R2, (R3) + ‘PUT THIS CHARACTER IN THE OUTPUT BUFFER 
(1) 026602 005720 TST (RO) + +: JUST INCREMENT ING 
(1) 026604 020027 000010 CMP RO,#10 <°CHECK THE TABLE INDEX 
(1) 026610 002746 BLT 2$ 7:GO DO THE NEXT DIGIT 
(1) 026612 003002 BGT 8 ::GO TO EXIT 
(1) 026614 010502 MOV R5,R2 ::GET TH 
(1) 026616 000764 BR 6$ CHANGE TO ASCII 
(1) 026620 105726 8$: TSTB = (SP) + ; 7 WAS THE LSD THE FIRST NON-ZERO? 
(1) 026622 100003 BPL IF NO 
(1) 0266246 116663 177777 177776 MOVB  =1(SP),=2(R3) ::YES-USET THE SIGN FOR TYPING 
(1) 026632 105013 9$: CLRB = (R3) ‘SET THE TERMINATOR 
(3) 026634 012605 MOV (SP) +,R5 ::POP STACK INTO RS 
(3) 026636 012603 MOV (SP) +,R3 <{POP STACK INTO R3 
(3) 026640 012602 MOV (SP)+.R2 +:POP STACK INTO R2 
(3) 026642 012601 MOV (SP)+.R1 +:POP STACK INTO R17 
(3) 026644 012600 MOV (SP) +_RO : POP STACK INTO RO 
(1) 026646 104401 - 026674 TYPE  ,$DBLK :=NOW TYPE THE NUMBER 
(1) 026652 016666 006002 000004 MOV 3(SP) .4(SP) = SADJUST THE STACK 
(1) 026660 012616 MOV (SP) +. (SP) 
(1) 026662 000002 RTI : RETURN TO USER 
(1) (026664 023420 $DTBL: 10000. 
(1) 02 001750 1000. 
(1) 026670 000144 00 
(1) 026672 000012 10. 

ash 026674 000004 $DBLK: .BLKW 4 

2934 .SBTTL POWER DOWN AND UP ROUTINES 
(2) CL KK EER EKER EEE EREKEKERKREKEKEEREEKEREREEREREKERER E K 
(1) *POWER DOWN ROUTINE 
(1) 026704 012737 027050 000024 $PWRDN: MOV #SILLUP,@#PWRVEC :;SET FOR FAST UP 
(1) 026712 012737 000340 000026 MOV #340, AAPWRVEC+2 ::PRIO:7 
(3) 026720 010046 MOV RO,-(SP) +:PUSH RO ON STACK 
(3) 026722 010146 MOV R1,-(SP) *=PUSH R1 ON STACK 
(3) 026724 010246 MOV R2.-(SP) *=PUSH R2 ON STACK 
(3) 026726 010346 MOV R3,-(SP) *=PUSH R3 ON STACK 
(3) 026730 010446 MOV R4,-(SP) *=PUSH R4 ON STACK 
(3) 026732 010546 MOV R5.-(SP) *=PUSH RS ON STACK 
(3) 026734 017746 152200 MOV a@SWR,-(SP) +:PUSH @SWR ON STACK 
(1) 026740 010637 027054 MOV SP, $SAVR6 tZSAVE SP 
(1) 026744 012737 026756 000024 MOV #SPWRUP, AAPWRVEC ::SET UP VECTOR 
(1) 026752 9000000 HALT 
(1) 026754 000776 BR 72 :HANG UP 
(2) DLE RARE EERE EERE REE EE REE EAEEREREEERKEAEKRKEKEEEAEKEKE ER ER EEE RED 
1D) =POWER UP ROUTINE 
(1) 026756 012737 027050 000024 $PWRUP: MOV #SILLUP,@A#PWRVEC ;:SET FOR FAST DOWN 
(1) 026764 013706 027054 MOV $SAVR6, SP ::GET SP 
(1) 026770 005037 027054 CLR $SAVR6 WAIT LOOP FOR THE TTY 
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Wee Se ooo 


RP RFR FR FR FR FR FR FR RFA ARF AFA AAO E 
kk ek ek ed tk od 2 2 Se a ft Se 
Ne Nee eee ee ee ee eee ee ee ee es le we ae 


ss 
SB 


nn 
wo— 
~~ wa 


026774 
027000 


027056 


027124 


027140 
027142 


027220 


10-SEP-79 
905237 
012677 
01 


000000 
000776 
000000 
005015 
027124 


027054 
152132 


026704 


000340 000026 


042522 052123 


000004 
000006 
000006 
027170 
020000 


000002 
000006 
000004 
027220 


000024 


000004 


UP ROUTINES 


1$: INC $SAVR6 iz;WAIT FOR THE INC 

BNE 1$ 720F WORD 

MOV (SP) +, a@SWR :sPOP STACK INTO @SwWR 
MOV (SP)+,R5 3zPOP STACK INTO R5 
MOV (SP)+,R4 ::POP STACK INTO R4 
MOV (SP) +,R3 3zPOP STACK INTO R3 
MOV (SP)+,R2 33POP STACK INTO R2 
MOV (SP)+, 3:POP STACK INTO R1 
MOV (SP) +,RO 3zPOP_STACK INTO RO 


MOV #SPWRDN ,@APWRVEC ;;SET UP THE POWER DOWN VECTOR 
MOV #340, a#PWRVEC+2 ;:PRIO:7 


TYPE 2 ¢REPORT THE POWER FAILURE 

SPWRMG: .WORD PWRMSG sPOWER FAIL ati my POINTER 
MOV (PC) +, (SP) TIRESTART AT RESTR 

$SPWRAD : ta RESTRT 7 zRESTART ADDRESS 

$SILLUP: HALT 23 THE POWER UP SEQUENCE WAS STARTED 
BR oe 33 BEFORE THE POWER DOWN WAS COMPLETE 


SSAVR6: 0 PUT THE SP HERE 
PWRMSG: .ASCIZ <15><12>/RESTARTING AFTER A POWER FAILURE/<15><12> 


-EVEN 
.SBTTL ROUTINE TO SIZE MEMORY 


FLARE AAAAE RARER ERRERARERREERRERRREERERARRERARERRRARERRERRERE 
:*CALL: 
se JSR PC,$SIZE 


:* RE TURN 
*$LSTAD “WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION 
$SIZE: MOV RO,-(SP) ;;SAVE RO ON THE STACK 
MOV R1,~-(SP) SAVE R1 ON THE STACK 
MOV pretnaln Toad SME PRESENT ERROR VECTOR PS & PC 


te @FERRVEC+2 
SP RO 7zSAVE THE STACK POINTER 
7 SET THE. ERRVEC PS TO THE PRESENT PS 
TRAP PUSH OLD PSW AND PC ON STACK 


MOV (SP)+, @HERRVEC+2° : SAVE THE PSW IN a#ERRVEC+2 
MOV #2$, AMERRVEC 3zSET FOR TIMEOUT 
MOV #20000 ,R1 : FIRST ADDRESS 
1$: TST (R1) 7: TEST THIS ADDRESS 
TST (R1)+ 7: STEP TO NEXT ADDRESS 
BR 1$ 77 TRY ANOTHER 
2$: SUB #2,R1 oe BACK 
MOV RO,SP 7 sRES TORE THE STACK 


MOV (SP) +, @#ERRVEC+2 ;;RESTORE ERROR VECTOR 
MOV (SP) +, a#ERRVEC 


MOV R1,$LSTAD 3zLAST ADDRESS 
MOV (SP)+,R1 2 sRESTORE R R1 
MOV a ; RESTORE RO 


RTS 
$LSTAD: .WORD 0 
-SBTTL TYPE ROUTINE 


SAREE REAR ERE REAR EERE RRA RARER ERA ERE REAR ERE RARR EERE EH 


;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH 4 0 BYTE. 


3;:CONTAINS THE LAST ADDRESS 
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CZ7VSB8B.P17 10-SEP-79 








(1) 7*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 
(1) ;*NOTE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
(1) : *NOTE2: SPILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
aa ; *NOTE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

( :* 

(1) *CAL 

(1) +1) “USING A TRAP INSTRUCTION 

YH 2 TYPE -MESADR 3zMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
(1) $0 

(1) 3 TYPE 

(1) ce ME SADR 

(1) Zi 

(1) 027222 105737 001157 $TYPE: TSTB STPFLG 31S ee A TERMINAL ? 

(1) 027226 100002 BPL 1$ :BR IF 

(1) 7230 000000 HAL T ; HALT HERE IF NO TERMINAL 

(1) 027232 30 BR 3$ 7 LEAVE 

(1) 027234 010046 1$ MOV RO,~(SP) 3; SAVE RO 

(1) 027236 017600 000002 MOV @2(SP) ,RO 73GET ADDRESS OF ASCIZ STRING 

(1) 027242 122737 000001 001216 C MAPTENV, SENV 3 RUNNING IN APT 

(1) 027250 001011 E 62$ 2 éNO, GO CHECK FOR APT CONSOLE 

(1) 027252 132737 000100 001217 BITB #APTSPOOL ,SENVM ::SPOOL MESSAGE TO APT 

(1) 027260 001405 BEQ 62$ INO, GO CHECK FOR CONSOLE 

(1) 027262 010037 027272 MOV RO,61$ :2SETUP MESSAGE ADDRESS FOR APT 

(1) 027266 737 025450 JSR PC, SATY3 ::SPOOL MESSAGE TO APT 

(1) 027272 61$: 3 =MESSAGE ADDRESS 

(1) 027274 132737 000040 001217 62$%: BITB MAPTCSUP,SENVM ;;APT CONSOLE SUPPRESSED 

(1) 027302 1003 BNE 60$ 7-YES,SKIP TYPE OUT 

(1) 027304 112046 2$: MOVB (RO)+,-(SP) ;sPUSH CHARACTER TO BE TYPED —" STACK 
(1) 027 001005 BNE 4$ 77BR IF IT ISN'T THE TERMINA 

(1) 027310 005726 TST (SP) + 331F TERMINATOR POP IT OFF THE. STACK 
(1) 027312 012600 60$: MOV (SP) +,RO 2 sRESTORE RO 

(1) 027314 062716 000002 3$: ADD #2, (SP) 3 sADJUST RETURN PC 

(1) 027320 RTI ; sRETURN 

(1) 027322 122716 000011 4$: CMPB MHT , (SP) ; BRANCH IF <HT> 

(1) 027326 00143 BEQ 8 

(1) 027330 122716 000200 CMPB CRLF , (SP) BRANCH IF NOT <CRLF> 

(1) 027334 001 BNE 5$ 

(1) 027336 005726 TST (SP) + 7:POP <CR><LF> EQUIV 

(1) 027340 104401 TYPE 3:TYPE A CR AND LF 

(1) 027342 001173 SCRLF 

(1) 027344 105037 027500 CLRB $CHARCNT to a CHARACTER COUNT 

(1) 027350 755 BR 2$ 3:GET NEXT CHARACTER 

(1) 027352 004737 027434 5$: JSR PC,$TYPEC 3:GO TYPE THIS CHARACTER 

(1) 027356 123726 001156 6$: CMPB SFILLC, (SP)+ $4 IT TIME FOR 4 CHARS. ? 

(1) 027362 001350 BNE 2$ :1F NO GO GET NEXT CHAR. 

A 027364 013746 001154 MOV $NULL ,~ (SP) : GET BPE oF CHARS. NEEDED 

(1) 027370 105 000001 7$: DECB 1(SP) ; DOES A NULL NEED TO BE TYPED? 

(1) 027374 002770 BLT 6$ :BR IF —— POP THE NULL OFF OF STACK 
(1) 027376 737 027434 JSR PC, $TYPEC £260 TYPE A NULL 

(1) 027402 105337 027500 DECB SCHARCNT :DO NOT COUNT AS A COUNT 

Me 027406 000770 7$ :; LOOP 

AL HORIZONTAL TAB PROCESSOR 
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027410 112716 000040 8$: MOVB #° ,(SP) ghee TAB WITH SPACE 
737 027434 9$: JSR PC, STYPEC ; TYPE A SPACE 
000007 oo ; «BRANCH ay NOT AT 


STOP 
(SP)+ POP SPACE OFF STACK 
BR $ SIGET WEXT CHARACTER 
151510 STYPEC: > a$TPsS 7zWAIT UNTIL PRINTER IS READY 


STYPEC 
000002 151502 2(SP) ,aSTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
000015 000002 oo HIS na it te A CARRIAGE RETURN? 


IF NO 
027500 2 :YES=-CLEAR CHARACTER COUNT 


$ x 
000012 000002 1$: MPB ahve 2(SP) i318 od ves A LINE FEED? 
INCB (PU) s >: COUNT THE CHARACTER 
000000 SCHARCNT:.WORD 0 3sCHARACTER COUNT STORAGE 
027502 $TYPEX: RTS PC 


ss SS SS SS ss ss SP St YS SS YY YS 


Ce ee te et ee te a, ee ee, ln ee et i et a a 
Oe i i 


-SBTTL INTEGER MULTIPLY ROUTINE 


LARA REE ER ER RAEERERREREERER EEE REE RK REE REE ERE 


7 *CALL 


saBe 


MUL TIPLER,-(SP) 

MUL TIPLICAND,-(SP) 

PC ,a4SMULT 

3zPRODUCT IS ON THE STACK 


PRODUCT 


eRe Be Be Be Be Be Be 
eae eee eRe 


: 


: PUSH RO ON STACK 


SP) : 
aia ait ;¢GET Ry 4 lati cates 


(SP) ZISET THE SIGN KEY 

R1 7 sMAKE THE MULTIPLICAND POSTIVE 
14(SP) ,R2 73GET THE MULTIPLIER 

2$ ;:BR IF PLUS 

(SP) UPDATE THE SIGN KEY 

R2 ‘MAKE THE MULTIPLIER POSTIVE 
#17. ,-(SP) 3:SET THE LOOP COUNT 

RO :;SETUP FOR THE MULTIPLY LOOP 
3:DON'T ADD IF MULTIPLICAND = 0 


4$ 
R2,RO 
RO 7zPOSITION THE PARITIAL PRODUCT AND 
R1 phe MUL TIPLICAN 

(SP) HAS oe Bits OF THE MULTIPLICAND BEEN DONE? 


3$ IF NO 
027562 022616 (SP) +, (SP) “SHOULD PRODUCT BE NEGATIVE? 


) 
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1) 
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1) 
1) 
1) 
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1) 7 3:GO TO EXIT IF NO 
(1) 0592 005400 3sYES=--SO MAKE IT SO 


3;CLEAR SIGN INFO. OFF OF STACK 
RO,12(SP) aa mw PRODUCT ON THE STACK (MSB'S) 


R1,10(SP) : 
(SP)+,R2 ‘POP STACK INTO R2 
(SP)+,R1 : POP STACK INTO R1 


at 3=POP STACK INTO RO 


ee Nee ee ee ee ee 


te ae te et tl 
“WW SS es 


027614 


2 


eNO i ei fe es SS YS Se ee YY 


-SBTTL TRAP DECODER 


DASE ESOIOISISIIIIOIIISIOISISIIIDIOIIISIOIDIOISIIOISOIUIIIDIOIIDOIIDIOIIOIIIDIUIIDI IDIOT 
*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
;*AND USE IT TQ INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


027616 6 STRAP: RO,-(SP) 73SAVE RO 
2 MO 2 2GET ae te — 


;BACK 
73GET RIGHT BYTE OF TRAP 
RO sPOSITION FOR INDEXING 
$TRPAD(RO).RO :;: INDEX TO TABLE 
RO 3:GO TO ROUTINE 


33 THIS IS USE TO HANDLE THE ‘‘GETPRI** MACRO 


$TRAP2: MOV (SP) ,=(SP) 7zMOVE THE PC DOWN 
000004 000002 MOV 4(SP) ,2(SP) 7sMOVE THE PSW DOWN 
027650 000002 RTI 7 sRESTORE THE PSW 


-SBTTL TRAP TABLE 


>*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE ‘‘TRAP’’ INSTRUCTION. 


: ROUT INE 


027652 $TRPAD: .WORD $TRAP2 

027654 $ 3 CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 

027656 3 CALL=TYPOC TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
027660 2 CALL=TYPOS TYPE OCTAL NUMBER (NO LEADING ZEROS) 
027662 ; = CALL=TYPON TYPE OCTAL NUMBER (AS PER LAST CALL) 
027664 $TYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


ee ek ek ek ek a ed ed ot ot a as os a NY 


( 
( 
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( 
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( 
( 
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( 
( 
( 
( 
( 
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( 
( 
( 
( 
( 
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CZVS8B == VS60 | 
C7VSBB.P11 


032075 
032151 
032245 


032323 


032470 
032504 
032512 


032530 


RUCTION TEST 
10vSEP= 79 11:32 
005015 051412 
005015 042523 
115 044501 
114 040517 
114 040517 
042522 042101 
117 3106 
043117 051506 
043117 051506 
043117 051506 
041523 046101 
101 051502 
051107 050101 
114 040517 
114 040517 
111 041516 
104 041505 
105 3504 
114 040517 
047111 047503 
127 047522 
051127 047117 
127 047522 
051127 047117 
107 040522 
102 051501 
040502 044523 
122 051505 
105 043504 
111 052116 
123 04451 
044123 043111 
047111 042524 
051106 
114 047117 
120 044517 
123 050125 
105 051122 
051105 050122 
051105 050122 
032470 
001116 001734 
001116 001106 
001116 001734 
000000 
000001 


PART I] 


020107 
052116 
051105 


020103 
001122 
000000 
001124 


Kk 
MACY11 30G(1063) 17-SEP-79 08:46 PAGE 15 
ASCII MESSAGES SEQ 0088 


-SBTTL ASCII MESSAGES 
HEADER: .ASCIZ <15><12><12>/START OF CZVSBB VS60 INSTRUCTION TEST PART I1/<15><12> 
ECOMSG: .ASCIZ <15><12>/SET SWITCH REGISTER BIT 10 (002000) IF ECO VT48-0012 IS INSTALL 


EM1: -ASCIZ /MAINT. SWITCH REG/ 

EM2: eASCIZ /LOADING D.P.C. REG <STATIC>/ 

EMS: -ASCIZ /LOADING RELOCATE REG/ 

EMG: -ASCIZ /READING D.P.C. WITH RELOCATE REG SET/ 

EMS: -ASCIZ /OFFSET INDICATOR FAILED TO SET/ 

EM6: -ASCIZ /OFFSET POLARITY BIT FAILED TO SET/ 

EM?: eASCIZ /OFFSET INSTR FAILED TO LOAD DYNAMIC REG/ 

EM10: .ASCIZ /OFFSET ha FAILED TO LOAD EXTENDED POS BITS/ 

EM11: .ASCIZ /SCALE ER/ 

EM12:  .ASCIZ /ABS VECTOR FAILED TO SET UP X OR Y POS REG/ 

EM13: .ASCIZ /GRAPHPLOT INC REG ER/ 

EM14: .ASCIZ /LOADING X POS 

EM15:  .ASCIZ /LOADING Y POS REG/ 

EM16:  .ASCIZ /INCREMENTING DELTA X OR DELTA Y REG/ 

EM17:  .ASCIZ /DECREMENTING DELTA X OR DELTA Y REG/ 

EM20: .ASCIZ /EDGE INDICATOR UPON EXCEEDING AN EDGE/ 

EM21:  .ASCIZ /LOADING CHAR REG/ 

EM22:  .ASCIZ /INCORRECT OR UNEXPECTED CHANGE IN X OR Y POSITION REGS/ 
3: .ASCIZ /WRONG DELTA X - SCALED CHAR MODE/ 

EM24:  .ASCIZ /WRONG DELTA Y = SCALED CHAR MODE/ 

EM25: .ASCIZ /WRONG DELTA Y = SCALED CHAR MODE ROTATED/ 

EM26: ASCIZ /WRONG DELTA X = SCALED CHAR MODE ROTATED/ 

EM27:  .ASCIZ /GRAPHPLOT INC FAILED TO SET UP X OR Y POS REG/ 

EM30:  .ASCIZ /BASIC VECTOR FAILED TO LOAD X OR Y POS REG/ 

EM31: .ASCIZ /BASIC SHORT VECTOR FAILED TO LOAD X OR Y POS REG/ 

EM32: ASCIZ /RESET FAILED TO CLEAR A REG/ 

EM33: .ASCIZ /EDGE FLAG INTR ER/ 

EM34: .ASCIZ /INTR PRIORITY FAILURE USING INTERNAL STOP/ 

EM35:  .ASCIZ /SHIFT-OUT BIT SET IN ERROR/ 

EM36:  .ASCIZ /SHIFT-OUT BIT FAILED TO SET/ 

EM37:  .ASCIZ /INTERNAL STOP FLAG FAILED TO SET/ 

EM40: .ASCIZ /'FRAMES PER SECOND* SYNC ER/ 

EM41: .ASCIZ pope as oe FAILED TO SET UP X OR Y POS REG/ 

EM42: ASCIZ /POINT OR ABS VEC WITH AN OFFSET FAILED TO SET UP X OR Y POS/ 

EM43: .ASCIZ  SUPER/ SUBSCRIPT CHAR SCALE OR DELTA X OR Y ER’ 

DH1: ASCIZ /ERRPC TSTNUM BUSADR EXPCT RCVD/ 

DH2: eASCIZ /ERRPC TSTPC/ 

DH11: CIZ /ERRPC TSTNUM EXPCT RCVD SCALE STARTVAL/ 


DT1: SERRPC, pe ty SBDADR ,SGDDAT , S$BDDAT , 0 
DT2: SERRPC , $LP. 
DT11:  $ERRPC, TSTNUM SGDDAT , SBDDAT . STMPO , SREGO ,0 


DISS OIDIOISIIOIIDISIIIIOIIIOISIOIDIIDIOIDIOIIOIDIOIIOIOIOIOIOIOI DIDI OI TICS IDI 
;THIS IS THE WORKING AREA FOR ALL VS60 NPR'S (INSTR'S AND DATA) 
FROM HERE TO THE END OF 8k 


LL AAR REE REE EERE EERE EERE EERE EERE REE ERE 


BUFFER: 0 
END 


Sy == VS60 INSTRUCTION TEST PART II MACY11 30G‘1063) 17-SEP-79 08:46 PAGE 16 


7VSBB.P11 10-SEP-79 11:32 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0089 
ABASE = 172000 2a 36 
ACDW1 = 000000 36 
ACDW2 = 000000 36 
ACPUOP= 000000 36 
ADDWO = 000000 36 
ADDW1 = 000000 36 
ADDW10= 000000 36 
ADDW11= 000000 36 
ADDW12= 000000 36 
ADDW13= 000000 36 
ADDW14= 000000 36 
ADDW15= 000000 36 
ADDW2 = 000000 36 
ADDW3 = 000000 36 
ADDW4 = 000000 36 
ADDWS = 000000 36 
ADDW6 = 000000 36 
ADDW7 = 000000 36 
ADDW8 = 000000 36 
ADDW9 = 000000 36 
ADEVCT= 000000 36 
ADEVM = 000000 36 
AENV = 000000 36 
AENVM = 000000 36 
AFATAL= 000000 36 
AMADR1= 000000 36 
AMADR2= 000000 36 
AMADR3= 000000 36 
AMADR4= 000000 36 
AMAMS1= 000000 36 
AMAMS2= 000000 36 
AMAMS3= 000000 36 
AMAMS4= 000000 36 
AMSGAD= 000000 36 
AMSGLG= 000000 36 
AMSGTY= 000000 36 
AMTYP1= 000000 36 
AMTYP2= 000000 36 
AMTYP3S= 000000 36 
AMTYP4= 000000 
ANAME 002000 3344 
APASS = 000000 

IOR= 000000 
APTCSU= 000040 29244 2939 
APTENV= 000001 29244 2925 2939 
APTSIZ= 000200 361 29244 
APTSPO= 000100 29244 
A = 000000 36 
ATESTN= 000000 36 

T = 000000 36 
= 000000 36 
AVECT1= 100320 con 36 
AVECT 36 
BEGIN 002050 7 3604 
BEGINA 002040 29 3584 377 


BEGIN1 002054 359 3614 


M 
7VSBB == VS60 INSTRUCTION TEST PART II MACYi1 30G(1063)_ 17-SEP-79 08:46 PAGE 16-1 


CZV 
CZ7VSBB.P11 10-SEP-79 11:32 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0090 
BITO = 000001 194 760 2773 
1T00 = 000001 194 
BITO1 = 000002 194 
BITO2 = 000004 194 
BITOS = 000010 194 
BITO4 = 000020 194 
BITOS = 000040 194 
BITO6 = 000100 194 
B1T07 = 000200 194 
BITO08 = 000400 19% 2923 
BITO9 = 001000 19% 2923 2925 
IT1_ = 2 194 428 764 
BIT10 = 002000 194 
BIT11 = 004000 19% 2923 
BIT12 = 010000 194 429 440 536 540 2903 2906 
BIT13 = 020000 oooe 759 762 763 766 767 770 771 774 2897 2899 2901 2903 
BIT14 = 040000 194 2923 
BIT15 = 100000 19% 2613 2775 2797 
BIT2 = 000004 194 768 
BITS = 000010 194 772 
BIT4 = 000020 194 
BITS = 000040 194 1591 1619 1645 1664 
BIT6 = 000100 19% 2534 2560 2603 
BIT? = 000200 194 2785 
BIT8 = 000400 194 
BIT9 = 001000 194 
BPTVEC= 000074 194 
BRLEV1 001736 2954 365* 2646 2668 
BUFFER 032530 284 285 286 7 28 289 460* 461* 462 463* 465* 487* 488* 
489* 490* 491* 498* 508* 09» 510% 511% 512* 19* 528* 529* 532* 
533* 534* 535* 536* 39 546 564* 565* 568* 569* 570* 571* 574 
582 602 611* 612* 613* 614* 617 625 645 660* 1 683* 
714* 715* 716* 717* 725 737 738 747 748 759* 762* 
763* 766* 767* 770* 771* 774% 776 778* 783 898* 998* 
1067 1098* 1104 1137* = =1138* 1143* 1149 1181* 1240* 1241* 1245 1277* 1283 
1315* 1322 1348* 1350* 1351 1353* 1375 1405* 1409* 1410 1412* 1416 1445* 
1447* 1451* 1473 1503* 1516 1563* 1686 1721 1768* 1771 1842* 1885 1912 
1932 1953 1973 1993 2013 2033 2053 2079 0 2119 2139 159 2 
2 2218 2257* 2261* 2264* 2271* 2275* 2321 2360* 2364% 2367* 2374% 2378* 
2411 2437 2473 1 570 2625* 626* 2627* 2628* 2642* 2664* 2695*  2696* 
2697* 2712 2731* 2732* 2733 2776 29984 
CALPT 025064 39 749 28974 
CHSZO =©007740 297# 1898 
CHSZ1 =001742 2984 1925 2092 2448 2485 
CHSZ2 9001744 299% 1945 2112 
CHSZ3 =: 001746 3 1 2132 
CONS 002002 3354 
CONT 024552 499 520 1550 1590 1617 2523 27834 
CR = 000015 194 2939 
CRLF = 1 2939 
CSCL 021102 2226 2274 22854 2329 2377 
CSCLR 021066 2229 2269 2332 2372 
DBUF 001712 2844 807 838 908 940 1008 1040 1191 1217 1570 1607 1635 1654 


1839* 1861* 2595* 2643 2665 
DBUF1 001714 2854 1843* 1862* 2574* 2596% 


N 
CZ7VSBB == VS60 INSTRUCTION TEST PART I] MACY11 30G(1063) 17-SEP-79 08:46 PAGE 
CZ7VSBB.P11 10-SEP-79 11:32 CROSS REFERENCE TABLE == USER SYMBOLS 


DBUF2 001716 864 1863" 2597 
DBUFS 0017 287 1864% 2599 
DBUF4 901722 884 1865s 
DBUFS 001724 2894  1866* 
DDISP = 177570 19 86 36—<—«*SCT 
20 3434 370 372 «=. 2641" «= 2657 =. 2663® =. 2679 
DDONET 002022 3444 2657 2690 
DH1 032323 5 61 75 
138-145 152 159 166 173 180 
229 3 | ee. eee eee Re 
DH11 032406 9 298 
032370 250 2987 
DISPLA 001142 36" 361% 2923% 2925 
DISPRE 00017 1, 
002 3364 
DPC —s-—«Q01760 3264 366426 G30 G31 441 442% 
1766* 1771* 2643* 2665" 2719% 2725* 2776 
DSAVE 001726 290# 1190" 1196 1207* 1216* 1221 1234* 
2574 2585* 2586 2588 
DSAVE1 001730 2914 
DSWR = 177570 19% 36 361 
DT1 032470 41 48 55 62 69 76 83 
| ee? See 160 “Fr 1% 181 
os 2 wm Be 271 278 
D711 = 032512 97 29928 
DT2 032504 251 2991 
ECOMSG 027752 388 29484 
EMTVEC= 000030 19# * 
EM1 030061 39 © 29498 
EM10 030402 88 2956# 
EM11 030460 95  2957# 
EM12 030471 102 29584 
EM13 030544 109  2959# 
EM14 030571 116 29604 
EM15 030613 123 29614 
EM16 030635 130 29624 
EM17 030701 137-296 3# 
EM2 030103 46 © 2950# 
EM20 030745 144 2964# 
EM21 031013 151  2965# 
EM22 031034 158  2966# 
EM23 031123 165 29674 
EM24 031164 172 29684 
EM25 031225 179 29694 
EM26 031276 186  2970# 
EM27 031347 193 29714 
EMS ss 030137 53 29514 
EM30 = 031425 200  2972# 
EM31 031500 207 © 29734 
EM32 031561 214 2974 
EM33 031615 221 2975# 
EM34 031637 228 = 2976 # 
EM35 031771 235 = 2977 
M 031744 242 
EM37 2000 249 2979# 


16=2 


90 
188 
29904 


110 


464* 
1854* 


111 
202 


1855 


118 


124 


SEQ 0091 


131 
222 


1721* 
2569* 


132 
223 


B ¢ 
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CZ7VS8B.P11 10-SEP-79 11: CROSS REFERENCE TABLE == USER SYMBOLS 


24560 
024524 


024356 


2790 2796* 28004 


628 742 752 1122 1129 1749 1758 29154 


1683* 1722* 1765* 2511* 2594* 2623* 2640* 2648*  2662*  2668* 


2934* 
3894 2767 2934 


RLO 001770 401 403* 404 410* 445* 455* 
RSTVEC 024634 1783 28054 





Cc 8 
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CZ7VS8B.P11 10-SEP-79 11:32 CROSS REFERENCE TABLE == USER SYMBOLS 


3624 
3754 


29284 
3278 


1513 2831 
2763 


194 
194 
194 
194 
194 
194 
194 
194 
194 
194 
194 
194 
194 
194 
194 


3574 
4554 


NM ey 

NW yee) ee] 

—e —NW 

N Leena 
Lez 


2736 2740 2741 2747 2750 


ath aah 
wooo 
RBRBe 


2990 2992 


8 


TSTNUM 17 
TST1 002500 





ZVSBB == VS60 pera t 


cZv 

CZVSBB.P11 
TSTIO0 003562 
TST100 022450 
TST101 023020 
TST102 023156 
TST103 023336 
ST104 023466 
TSTI05 023610 
TST106 023776 
TST107 024102 
TST11 004004 
TST110 024360 
TST12 004242 
TST13. 004512 
TST14 004654 
TST15 005016 
TST16 005252 
TST17 00562 
TSt2 002572 
TST20 005756 
TST21 00614 
TST22 006324 
TST23 006 
TST24 006752 
TST25 0071 
TST26 007372 
TST27 007562 
TST3 002670 
TST30 007746 
TST31 010202 
TST32 010456 
TST33 010714 
ST34 011 
TST35 011246 
TST36 011506 
TST37 011746 
TST4 2764 
TST4C 012246 
TST41 012524 
TST42 013024 
TST43 013254 
TST44 013562 
TST45 013762 
TST46 014126 
TST47 014232 
TST5 3106 
TST50 014370 
TST51 015356 
TST52 015530 
TST53 015700 
TST54 

TST55 016212 
TST56 016336 
TST57 01646c 
TSTE 003254 
TST60 016606 
TST61 016732 


10-SEP-79 1 


7 a 
p PD paety PD 5 ohm 
FES my Me ie 
NNNWU “ay 


2505 
2547 
26224 
26924 


2753 


1602 
16334 


18844 


ST PART II MACY11 30G6(1063) 
CROSS REFERENCE TABLE <= USER 


25098 
25664 


27628 


16054 


Dd 
17=SEP=79 08 46 PAGE 16-5 
SYMBOL S 


SEQ 0094 


E 
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C 

CZVSBB.P11 10-SEP-79 11:32 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0095 

TST 017056 2028 20314 

TST6 017202 2048 20514 

TST64 017362 2074 207748 

TST65 7506 2 a 

166 017632 2114 21174 

TST67 = 017756 21 21374 

TST7 3420 501 

TST70 020102 2154 21574 

TST71 020226 2174 21778 

TST72 020352 2194 2197, 

TST73 020476 2214 22178 

TST74 =—021174 2268 23208 

TST75 1644 2371 24094 

TST76 022016 2426 2432 24364 

TS177 230 2453 2462 2468 24728 

TYPDS = 104405 2767 29434 

TYPE = 104401 385 387 2767 2925 2928 2931 2932 2934 2939 29434 

TYPOC = 104402 2928 29434 

TYPON = 104404 29434 

TYPOS = 104403 29434 

XDOFF 001774 3324 538 41 561* 576 599* 619 643 653* 655 700 702 741 
794 796 1116* = 1121 1748 

XPORR1 021614 2375 23954 

XPOS 001764 3284 573 575 616 618 736 740 817 820 848 851 881 884 
918 921 949 952 981 984 018 1021 1049 1052 1081 1084 119 
1120 1167 1213 1227 1259 1262 1304 1307 1333 1335 1390 1392 
1428 1430 1488 4 1540 1551 1746 1747 1869 1873 1895 901 1922 
1928 1942 1952 1963 2070 2138 2149 2158 2169 2178 2189 2198 2209 
2241 2243 2344 2346 2410 2421 2446 2460 2492 2497 2541 2545 

XPOSR 021114 2227 22914 

XPOSRR 021144 2272 23064 

XPOSR1 021564 2330 23814 

YDOFF 001776 33 4 47 562* 584 600* 627 666 676* 678 707 709 751 
798 800 1117* 1128 757 

YPORR1 021630 2376 24024 

YPOS 001766 329H 581 583 624 626 746 823 826 854 857 888 891 


2482 2488 2525 529 2549 2554 2 2616 2693 2702 

YPOSR 021130 2228 22994 
YPOSRR 021160 2273 23134 
YPOSR1 021600 2331 23884 
ZDOFF 002016 3414 485 493 500 506 514 521 
ZPOS 002014 3404 

T 001 344 
SASTAT= xeeane U 2924 
SATYC 025466 29244 
$ATY1 025442 29244 
SATY3 025450 29244 2939 
$ATY4 025460 29244 925 
SAUTOB 001134 3 
$BASE 001252 364 367 


$BDADR 001122 364 401* 413* 426* 441* 467* 485* 506* 538* 545* 573* 581* 616* 


F §& 
SBB =~ VS60 INSTRUCTION TEST PART II MACY11 30G(1063) 17-SEP-79 08:46 PAGE 16-7 


CZV 

CZ7VSBB.P11 10-SEP-79 11:32 CROSS REFERENCE TABLE == USER SYMBOLS 
624* 643* * 700* 707* 736* 746* 796* 
881* 8* 921* 924% 952s 958* 981* 


SBDDAT 001126 364 404* 405 417* 418* 419 431* 


884* 885 891* 89 918* 919 925* 926 
985 991* 992 1018* 1019 1024* 1025 1049* 
1091* 1092 1120* 1123 1127* 1130 1167* 1168 
1228* 1229 1262* 1263* 1264 1270* 1271 1300* 
1336* 1337 1342* 1343 1344 1392* 1393 1398* 
1438* 1439 1490* 1491 1496* 1497 1540* 1541 
1556 1583* 1584 1592* 1593 1600* 1601 1620* 
1665* 1671* 1672* 1727* 1728% 1739% 1740* 
1778* 1779* 1780 1846* 1847* 1848 1869* 1871 
1903* 1904* 906 1922* 1923* 1926 1942s 
1983* 1984* 1987 2003* 2004* 2 2023* 2024* 


2236* 2237* 2243* 2244% 2245 2250* 2251* 
2347* 4 2353* 2354* 2355 2421* 2423 2428* 
2456* 2458 2466* 2467 2482* 2483* 2486 2492* 


2543 
2604* 2605 2611* 2612* 2614 2633* 2634* 2651* 


$SCDW1 001256 364 
SCDW2 001260 
SCHARC 027500 29394* 
SCKSWR= «xxxxx% |) 
SCMTAG 001100 364 361 
$CM1 = 000001 364 
SCM2 = 000002 364 
$CM3S = 000001 364 
SCM4 = 000001 364 
SCPUOP 001224 364 
SCRLF 001173 364 2925 2928 2939 
SDBLK 026674 29324 
SDEVCT 1206 64 
VM 001254 
SDOAGN 024500 27674 
SDTBL 026664 29324 
SENDAD 024470 31 27674 2925 
SENDCT 024436 361 27674 
SENDMG 024507 27674 
SENULL 024504 27674 
SENV 601216 364 2924 2925 2939 
SENVM) = 001217 364 361 2924 2939 
SEOP 024402 2764 27674 
SEOPCT 024430 361* 27674 


SERFLG 0011C3 364 2923* 2925* 


8 
SBB == VS60 pera TEST PART II] MACY11 30G(1063) 17=SEP=79° 08:46 PAGE 16-8 


CZV 
C2VS8B. P11 10-SEP-79 11:32 CROSS REFERENCE TABLE == USER SYMBOLS 
SERMAX 001115 364 361* 2923 
SERROR 025710 361 29254 
SERRPC 001116 2925* 2928 2990 2991 2992 
SERRTB 001262 928 
SERRTY 026076 2925 29 
SERTTL 001112 2925* 
SESCAP 001170 364 361* 2923* 2925 
SETABL 001216 364 
SETEND 001262 4 
SFATAL 001 924% 
SFFLG 025706 2924H* 
SFILLC 001156 939 
SFILLS 001155 364 2939 
001120 364 
SGDDAT 001124 402* 403 405 408* 415* 416 419 422* 428* 430 
443* 448 451* 459* 473* 486* 497* 507* 518* 539* 540* 


1130 1165* 
1175 1189* 1203 1208* 1215* 1229 1235* 1260* 1 1268* 1271 
1305* 1334* 1337 1341* 1344 1391" 13 1397* 1399 1429* 
1439 1489* 1491 1495* 1497 1538* 1541 1545 1549* 1552 1556 
1599* 1619* 1627* 1645* 1647 1664* 1670* 1726* 1733* 1738* 1741 
1754* 1759 1777* 1780 1840* 1848 1853* 1870* 1871 1879 1897* 
1905* 1 1924* 1925* 1926 1944* 1945* 1946 1965* 1966* 1967 
1987 2005* * 2007 2025* 2026* 2027 2045* 2046* 047 2065* 
2072* 2073 2091* 2092* 2093 2111* 2112* 2113 2131* 2132* 2133 
2153 2171* 2172% 2173 2191* 2192* 21 2211* 22128 2213 2235* 


24 2 
2542% 2543 2551* 2552 2559* 2577% 2603* 2613* 2614 2632* 2645» 


$GET42 024460 27678 

SGTSWR= *eeee® 2943 

$HD = 13 

$HIBTS 001000 344 

SICNT 001104 364 2923* 

SILLUP 027050 29344 

SINTAG 001135 364 

SITEMB 001114 364 2925* 2928 

L 001174 364 2925 2939 

SLFLG 025705 29244* 

SLPADR 1106 361* 2923* 2991 

SLPERR 001110 364 361* 400* 414* 427* 446* 527* 563* 601* 64e* 665* 698* 
804* 834* 879* 904* 936* 979% 1004* 1036* 1079* 11148 1162* 1257* 
1321* 1387* 1426* 1486* 1534* 1838% 2232% 2335*% 2923* 2925 

$SLSTAD 027220 381 2937H* 

SMADR1 001230 364 

SMADR2 0012 364 

SMADR3 001240 364 

SMADRS4 001244 364 

SMAIL 001176 34 364 361 399 412 425 439 457 485 526 560 


505 
641 664 687 722 782 803 833 865 903 935 966 1003 
1066 1103 1148 1186 1212 1244 1282 1320 1374 1415 1472 1508 





C7VSBB == VS60 INSTRUCTION TEST PART I] MACY11 30G(1063) 17=SEP=79" 08 46 tee 16-9 
CZ7VSBB.P11 10-SEP-79 11:32 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0098 


1605 1633 1652 1677 1836 1860 1884 1911 1931 1951 1971 1991 2011 
2031 2051 2077 2097 2117 2137 2157 2177 2197 2217 2320 2409 2436 
2472 2509 2566 2591 2622 2639 2659 2692 2707 2762 2923 2925 2939 
SMAMS1 001226 364 
SMAMS2 001232 364 
SMAMSS 001236 364 
SMAMSS 001242 364 
001002 34a 
SMFLG 025704 2924 
SMSGAD 001212 364 2924" 
SMSGLG 001214 364 = 2924" 
SMSGTY 001176 364 2924" 
SMTYP1 001227 364 
SMTYP2 001233 364 
SMTYP3 001237 364 
SMTYP4 001243 364 
T 027504 2839 29418 
SMXCNT 025440 292 
SNULL_ 001154 3 2939 
SNWTST= 000001 3994 412a 4254 4394 4574 4834 5054 5264 5604 5984 6414 6644 6874 


7228 7824 8034 8334 8654 9034 9354 9664 10034 10354 10664 +1103 11484 
11864 12124 124644 12824 1320 13744 14154 14724 15084 1568 16054 16334 16524 
16774 18364 18608 18844 19114 19314 19514 19714 19914 20114 20314 20514  2077# 
20974 = 21174 2137 21574 2177 21974 2217 23208 2409 24364 24724 2509% 25664 


SOCNT 026454 29314 
SOMODE 026456 29314* 
SOVER 025424 9234 
SPASS 001204 361* 2767* 2773 2923 
SPASTM 001 4a 

027044 29344 
SPWRDN 026704 36 29344 
SPWRMG 027040 29344 

026756 29344 

S$ 001172 364 2925 2939 
SRDCHR= **eee% 2943 
SRDDEC= s*eeee 2943 
SRDLIN= ***e88 YJ 2943 
SRDOCT= seeee8 U 2943 
SREGAD 001160 364 
$REGO 001162 364 883* 890* 983* 990* 1083*  1090* 1112 1133% 1140" 1166* £1173 1261* 
1269* 1299 1306* 1388* 1485* 1536* 2992 
SRTNAD 024502 27674 
SRZA = eeeaee 2943 
SSAVRE= *eeee% U 2943 
SSAVR6 027054 29344* 
SSCOPE 025164 361 29234 
SSETUP= 000037 3574 361 2767 2923 2925 
S$SIZE 027124 380 29374 
$STUP = 177777 3574 
SSVLAD 025370 29234 
$SVPC = 000214 314 
$SWR = 165400 5a 13 234 25 36 361 399 1 425 439 457 483 505 
526 560 598 641 


Z7VSBB == VS60_ INSTRUCTION TEST PART I] MACY11 30G6(1063) 
CROSS REFERENCE TABLE <= USER SYMBOLS 


C 
CZ7VSB8.P11 


SSWREG 001220 
SSWRMK= 000000 
STESTN 001202 


STIMES 001166 


$TKB 001146 
STKS 001144 


STMPO §=001164 
$™N == 000111 
$ 001152 
STPFLG 001157 
TPS 0011 

STRAP 027616 
STRAP2 027640 
$STRP = 

STRPAD 027652 
STSTM 


10-SEP-79 11:32 


2925 


2767* 


2943 


373 


2923* 


2807 


I & 
17=SEP=79 08:46 PAGE 16-10 


2051 
2509 


2925 


2077 
2566 


2097 
2591 


26594 


2117 
2622 


2137 
2639 


2157 
2659 


26924 


2177 
2692 


2197 
2707 


27078 





J 
C7VSBB == vS60 tee awe IE TEST PART I] MACY11 30G(1063) 17-SEP-79 08:46 PAGE 16-11 


ChvSBB. P11 10-SEP-79 31:32 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0100 
. = 032532 278 314 334 34a 364 361 1514 1542 1546 1553 1557 2767 2923 
29248 2925 29284 29328 2934 29364 2939 29898 
~BASTA= eeeeee 1 2924 
-$x = = 001000 34a 


K & 
CZ7VSBB == VS60 INSTRUCTION TEST PART II MACY11 30G(1063) 17=SEP=79 08:46 PAGE 17 
CZ7VS8B.P11 10-SEP-79 11:32 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0101 


aes 


Satszy 


ror 
oN 
NON 





CZ7VSBB == VS60 ee tt TEST PART I] MACY11° 306(1063) 17=SEP=79- aoe: 46 PAGE 17-1 


Chvse8. P11 10-SEP-79 11:32 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0102 

TYPBIN 198 

TYPDEC 19% 2767 

TYPNAM 194 

TYPNUM 194 

TYPOCS 194 

TYPOCT 19# 2928 

TYPTXT 194 

$SC 364 

SSCMTM 364 

SSESCA 194 

SSNEWT 194 399 412 425 439 457 483 505 26 60 98 641 664 7 722 

3 33 86 3 935 966 1003 103 106 110 1148 1186 1212 1244 

1282 132 137 141 147, 150 1568 1605 1633 1652 1677 1836 1860 1884 1911 
1931 1951 1971 1991 2011 2031 2051 2077 2097 2117 2137 2157 2177 2197 2217 
2320 2409 2436 2472 2 2566 2591 2622 2639 2659 2692 2707 2762 

SSSET 29434 

SSSETM 3614 

SSSKIP 194 475 501 2 9 63 | (4 EE os 897 7 1097 1180 2 1232 
1276 1314 1352 1411 1452 1502 1561 1587 1596 1602 1624 1630 1673 1784 
1851 1875 1880 1907 1927 1947 1968 1988 2008 2028 2048 2074 2094 2114 2134 
2154 2174 2194 2214 2268 2371 2426 2432 2453 2462 2468 2490 99 2505 2531 
2539 2547 2583 2609 2615 2635 2653 2677 2685 2704 2748 2751 2753 

-EQUAT 7# 19 

-HEADE 7# 13 

-KT11 on 

- SETUP 84 357 

- SWRH] on 25 

- SWRLO 254 

-$ACT1 104 31 

-$APTB 104 364 

- SAPTH 10# 34 

-SAPTY 104 2924 

-SCATC 7# 27 

-SCMTA 7# 36 

- SEOP 7# = =2767 

- SERRO 7# = =2925 

- SERRT SH 2928 

. T 9H = 2941 

- SPARM 84 

° 8H 2934 

- SREAD 84 

- SSAVE 84 

- $SCOP 8H 2923 

-$SIZE 9H = §=2937 

- SSPAC 84 

- $SWDO 84 

- STRAP 8H 2943 

-STYPD 9H 2932 

- STYPE 7# 8H 2939 

-STYPO 7# = =—2931 


- ABS. 032532 000 CON RO ABS GBL si! 


ERRORS DETECTED: 0O 


C7VSBB == VS60 INSTRUCTION TEST PART I] MACY11 30G(1063) 17=SEP=79" 28: 46 A ae 17=2 


C7VSBB.P11 10-SEP-79 11:32 


CZ7VS88, ‘Tt oe ete 4 
RUN-TIME: 33 


20 1_SECOND 
RUN-TIME RATIO: 132/55=2. °3 
CORE USED: 26K (51 PAGES) 


CROSS REFERENCE TABLE <= MACR 


SEQ 0103 


